Hab mal folgendes für Dich geschrieben, muß evtl. angepasst werden, das Prinzip dürfte aber klar sein...
Delphi-Quellcode:
Function LeseZeileAusDatei(Dateiname : String; Zeile : Integer) : String;
VAR Zeilen : TStringList;
Begin
Zeilen := TStringList.Create;
Zeilen.LoadFromFile(Dateiname); // Evtl. hier noch Fehlerbehandlung wenn Datei nicht gefunden...
Try // Falls nicht vorhandene Zeile angegeben wurde....
Result := Zeilen[Zeile-1];
Except
Result := '';
End;
Zeilen.Free;
End;
Aufruf z.B.
Edit1.Text := LeseZeileAusDatei('c:\meinedatei.txt', 14); // Zeile Nr. 14 auslesen
Hoffe geholfen zu haben,
SCRaT
//EDIT: Source nochmal etwas umgeschrieben...