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;