Textzeile auslesen einer txt datei.

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