Einzelnen Beitrag anzeigen

Benutzerbild von Corpsman
Corpsman

Registriert seit: 8. Nov 2005
Ort: nähe Stuttgart
981 Beiträge
 
Delphi XE2 Professional
 
#6

Re: Textzeile auslesen einer txt datei.

  Alt 16. Mär 2008, 11:15
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;
Uwe
My Sitewww.Corpsman.de

My marble madness clone Balanced ( ca. 70,0 mb ) aktuell ver 2.01
  Mit Zitat antworten Zitat