|
Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.545 Beiträge
Delphi 11 Alexandria
|
Re: TextFile auslesen
2. Sep 2008, 10:35
Delphi-Quellcode:
procedure TfoTest15.ReadTextFile;
begin
Memo1.Lines.BeginUpdate;
try
memo1.Lines.LoadFromFile(Dateiname);
memo1.text:=stringreplace(memo1.Text,'%05',#13#10,[rfReplaceALL]);
finally
Memo1.Lines.EndUpdate;
end;
end;
Ist kürzer  .
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
|