zeilen aus text datei auslesen

[FriFra]

Delphi-Quellcode:

var
  txt: textfile;
  line, msg: string;
begin
  AssignFile(txt, 'textdatei.txt');
  reset(txt);
  while not EOF(txt) do
  begin
    readln(txt, line;
    if msg = '' then
      msg := line
    else
      msg := msg + #13 + line;
  end;
  CloseFile(txt);

  ShowMessage(msg);
end;