Assignfile

[netscanner]

Hi Leute, ich habe das folgende Problem:
Dieses Script soll die datei test.txt öffnen.

Delphi-Quellcode:

dateiname := 'test.txt' ;


assignfile (datei, dateiname);
reset (datei);
readln (datei, zeile1);
readln (datei, zeile2);
closefile (datei);
edit1.Text := (zeile1);
edit2.Text := (zeile2);

Ist ja auch grundsätzlich kein Problem, wenn sich diese Datei im selben Ordner, wie das Programm befinden. Jetzt kommt aber das Problem: Das Programm befinden sich im Ordener c:\delphi\a
und die datei befindet sich in c:\delphi\a\b
Wie sage ich also meinem Programm, dass er zum öffnen der datei in einen unterordner (in diesem Fall \b) gehen muss?

[mkinzler]

dateiname := 'b\test.txt' ;

[marabu]

Hi,

ExtractFilePath(ParamStr(0)) liefert dir den Bezugspunkt im Dateisystem. von da aus kannst du 'subDir\fileName.Ext' anhängen, oder was immer du willst.

Grüße vom marabu