Texte aus .txt auslesen aber nur eine bestimmte Zeile

[scrat1979]

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