Zeichen in Textdatei ersetzen

[yankee]

deine file2string kann mana uch einfacher realisieren:

Delphi-Quellcode:

function file2string(const filename: TFileName):string;
var datei: TFileStream;
begin
    datei :=TFileStream.Create(filename, fmOpenRead);
    datei.Read(result, datei.size);
    datei.Free;
end;

das ist jetzt so aius dem Kopf ungetestet runterschrieben, ich denke aber mal, dass das was schneller geht, weil der die Datei an einem Stück liest und in den resutl dtring wirft. Die setlength-Methode ist nämlich ziemlich langsam und wenn du zwei strings addierst, muss der jedes mal setlength ausführen und das für jedes Zeichen...

Zitat von japetos:

Delphi-Quellcode:

for i := 1 to length(aString) do  
     write(f,astring[i]);

Also warum machst du nicht einfach write(astring) statt diese forschleife?