TextFile auslesen

[taaktaak]

Moin, Moin.

Wie schaut die Textdatei denn aus?
Hat sie folgende Struktur?

hallo%05dies%05ist%05ein%05Text
hallo%05dies%05ist%05ein%05Text
hallo%05dies%05ist%05ein%05Text

Dann gibt es u.A. folgende Möglichkeit:

Delphi-Quellcode:

procedure TfoTest15.ReadTextFile;
var f   : Textfile;
    str : String;
begin
  memo1.clear;
  assignfile(f,~~~);
  {$I-} reset(f); {$I+}
  if ioresult<>0 then showmessage('error')
                 else begin
    while not(eof(F)) do begin
      readln(f,Str);
      memo1.lines.add(str);
      end;
    closefile(f);
    memo1.text:=stringreplace(memo1.Text,'%05',#13#10,[rfReplaceALL])
    end
end;