Textdatei auslesen

[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.