Delphi7 u. openDialog

[micha17]

Hallo,

ich hab folgendes Problem:

edit1.text := opendialog1.filename;

führt bei mir dazu, das in dem edit1.text nur
kryptische Zeichen ankommen.

Ist das ein Bug von Delphi7 ? Hat das jemand auch schon mal beobachtet ?

Installiert ist Delphi7 Enterprise Build 4.453

Micha

[Bernhard Geyer]

Etwas mehr Code bitte (z. B. Eingestellte Properties von TOpenDialog auf dem Formular).
bzw. Angaben ob dies Auf allen Rechnern oder nur an einen Rechner auftritt.

Grundsätzlich funktioniert diese Komponente wie erwartet

[matze 110]

Hallo ich will man ehrlich sein. Ich habe von Programmiersprachen allgemein keine Ahnung und hoffe das mir jemand vieleicht helfen kann. Und zwar habe ich eine Börsensoftware namens Spekulator. Diese hat zwar die möglichkeit Kurse zu Importieren und besitzt eine vorgefertigte Delphi Rotine siehe unten, ist aber leider nur zum Import folgendes Kursformates in der Lage

Die exportierte Funktion BWInvestment wandelt die historischen Kurse von folgenden Format

(1und1.txt)

Date Open High Low Close
22.05.98 112,48 115,3
25.05.98 113 113,51 112,74 113
26.05.98 112,48 112,48 110,18 110,44
...

in dieses:

(1und1.bwi)

Name Date Open High Low Close

1und1 22.05.98 112,48 115,3
1und1 25.05.98 113 113,51 112,74 113
1und1 26.05.98 112,48 112,48 110,18 110,44
...

Ich benötige aber einen Importfiler der dieses Kursformat umwandelt

Date,Open,High,Low,Close,Volume,Adj. Close*
1-Jul-02,21.15,21.30,20.71,21.20,505260,19.85
28-Jun-02,20.78,21.37,20.72,21.37,725406,20.01
27-Jun-02,20.65,20.80,20.19,20.45,1038750,19.15
26-Jun-02,19.50,20.38,19.25,20.21,1029610,18.92
25-Jun-02,19.66,20.30,19.66,20.05,546257,18.77

und zwar besteht das Problem dabei das die Monatsangabe in Worten geschrieben ist
,es müsste eine möglichkeit geben diese wortangabe der jeweiligen Monatszahl zuzuordnen.

Außerdem müssen die Trennzeichen in Semmikolon ( umgewandelt werden, anstatt - bzw. , .
Jemand hat mir freundlicherweise schon dazu etwas vorbereitet (siehe unten) doch besteht bei mir das Problem das ich keine Delphi Software besitze und auch keine Ahnung vom Kompelieren habe.

1) bitte benutze die code-tags
2) was hat das mit systemnaher programmierung zu tun?

es sollte nicht zu schwer sein, die monatsworte in zahlen umzuwandeln, oder?

z.b. das hier: 1-Jul-02,21.15,21.30,20.71,21.20,505260,19.85

du entfernst den text bis einschließlich dem ersten "-" liest dann den text bis zum nächsten "-" und vergleichst dann...

man könnte z.b. ein array anlegen, alla:

Code:
const
CMonthTextArray : array [1..12] of string = ('jan', 'feb', 'mar', 'apr', 'mai', 'jun',
'jul', 'aug', 'sep', 'oct', 'nov', 'dec');

und (angenommen dein Monatstext steht in der Variable AMonthText) dann per:

Code:
var
Index : Byte;
MonthNumber : Byte;
begin
MonthNumber := 0;
for Index := Low(CMonthTextArray) to High(CMonthTextArray) do
begin
if (AnsiLowerCase(AMonthText) = CMonthTextArray[Index]) then
begin
MonthNumber := Index;

Break;
end;
end;
end;

Mir wirde wirklich sehr geholfen sein wenn jemannd diese Umänderungen dann in eine Datei namens StdTranslator.dll umwandeln würde