Textdatei einlesen u. drucken

[mkinzler]

Z.B. mit Hilfe einet StringListe.

Delphi-Quellcode:

var  
  sl: TStrings;
  tf: TextFile;
  s: string;
...
  sl := TStringList.Create;
  sl.Delimiter := '|';
  AssignFile( <dateiname>, tf);
  Reset( tf);
  while not eof( tf) do
  begin
    ReadLn( tf, s);
    sl.DelimitedText := s;
  end;
  CloseFile(tf);