Textzeile auslesen einer txt datei.

[Klaus01]

Zitat von Corpsman:

diese Procedure müste das auch machen.

Delphi-Quellcode:

Procedure GetXLine(Filename:String;Line:integer);
var f:Textfile;
    i:Integer;
    s:String;
begin
  result := '';
  assignfile(f,filename);
  reset(f);
  i := 0;
  while(not eof(f)) and (i<=Line) do begin
  inc(i);
  readln(f,s);
  if i = Line then 
    result := s;
  end;
  closefile(f);
end;

wobei ein Funktion besser wäre, wenn man schon mit Result einen Wert zurückgeben möchte.
Der Kopf würde dann so aussehen.
function GetXLine(FileName:String;Line:integer):String; Aber Du wolltest doch die Datei nach einer Zeile durchsuchen, oder?

Delphi-Quellcode:

function isLineAvailable(Filename:String;Line:String):Boolean;
var f:Textfile;
    s:String;
begin
  assignfile(f,filename);
  reset(f);
  result := false;
  while(not eof(f)) and (not result) do begin
    readln(f,s);
    result :=  s = Line;
  end;
  closefile(f);
end;

Grüße
Klaus