Textdatei auslesen

[TaubenUlli]

Kurze knackige Frage: Welchen Pfad muss ich angeben, wenn das Programm eine Textdatei,
welche im selben Ordner wie die .exe liegt auslesen soll?

Habs mit \Dateiname.txt versucht, ging aber nicht.

Code:

memo1.lines.loadfromfile('Pfad');

[nahpets]

Dann sollte eigentlich memo1.lines.loadfromfile('Dateiname.txt'); reichen, 'ne Pfadangabe ist in dem Fall nicht erforderlich.

[TaubenUlli]

Ich Held!
So hatte ich es auch einmal versucht, hatte nur die ' ' vergessen, schon logisch, dass es nicht klappt. Facepalm...

[Perlsau]

Zitat von nahpets:

Dann sollte eigentlich memo1.lines.loadfromfile('Dateiname.txt'); reichen, 'ne Pfadangabe ist in dem Fall nicht erforderlich.

Da hab ich so meine Zweifel ... Wenn sich CurrentDir nach Programmstart ändert, weil du z.B. von woanders irgend eine Datei lädtst oder speicherst, dann bezieht sich der Dateiname darauf. Um sicher zu gehen, immer und in jedem Fall den Pfad der Exe-Datei zu verwenden, liest man diesen entweder aus dem ParamStr(0) und extrahiert den Pfad:

Delphi-Quellcode:

  PRIVATE { Private-Deklarationen }
    Var
      ExePfad : String;
...
IMPLEMENTATION
...
Procedure TFormMain.FormCreate(Sender: TObject);
begin
  ExePfad := ExtractFilePath(ParamStr(0));
  ...
end;
...
end.

... oder man verwendet an gleicher Stelle TApplication.ExeName.