Von festen Pfaden solltest du besser abstandnehmen. Bei mir ist zum Beispiel alles auf K und da hätte dein Prog einige Probleme
Und eine kleine Fehlerbehanlung tut auch nicht weh, so bricht das Prog wenigstens nicht gleich ab, wenn eine Datei fehlt.
Wenn du das so änderst, wird "data2.txt" im selben Verzeichnis, in dem dein Prog ist gesucht.
Delphi-Quellcode:
AssignFile(datei, ExtractFilePath(ParamStr(0)) + 'data2.txt');
{$I-} Reset(datei); {$I+}
If IOResult = 0 Then Begin
{Daten lesen}
CloseFile(datei);
End;
Add:
Dafür sind 20 Units schon krass.
http://www.FrankNStein.de/Smiley-Kuss.gif * *
http://www.FrankNStein.de/Smiley-Spinne.gif * * *
http://www.FrankNStein.de/Smiley-Winken.gif