Ersetzen funzt net

[glkgereon]

ich will in der Datei FileName alle vorkommen von Old durch New ersetzen.
dazu will ich auch TMemoBuf zurückgreifen.

doch irgendwie wird der text zwar korrekt ersetzt, aber an die datei angehängt.

wo ist der fehler?

Delphi-Quellcode:

  Buf:=TMemoBuf.Create;
  Temp:=TStringList.Create;
  Temp.Clear;
  Buf.Text:='';
  Temp.LoadFromFile(FileName);
  Buf.Text:=Temp.Text;
  Buf.ReplaceAll(Old,New,False);
  Temp.Add(Buf.Text);
  Buf.Free;
  DeleteFile(FileName);
  Temp.SaveToFile(FileName);
  Temp.Free;

[Wuaegner]

Delphi-Quellcode:

Buf:=TMemoBuf.Create; 
  Temp:=TStringList.Create; 
  Temp.Clear; 
  Buf.Text:=''; 
  Temp.LoadFromFile(FileName); 
  Buf.Text:=Temp.Text; 
  Buf.ReplaceAll(Old,New,False); 
  Temp.Clear; <======== das muss hier noch rein 
  Temp.Add(Buf.Text); 
  Buf.Free; 
  DeleteFile(FileName); 
  Temp.SaveToFile(FileName); 
  Temp.Free;

ungetestet aber rein logisch denke ich muss es rein

[glkgereon]

ich bin dann mal weg, ein wenig weinen

[tommie-lie]

Was ist denn das für ein Konstruktut?
Warum lädst du die Datei nicht gleich ins Memo, anstatt erst in eine Stringlist, nur um die nachher in ein Memo zu kopieren?

Delphi-Quellcode:

Buf.Lines.LoadFromFile(Filename);
Buf.ReplaceAll(Old,New,False);
Buf.Lines.SaveToFile(Filename);
Buf.Free;

(ungetestet)

[Wuaegner]

Zitat:

ich bin dann mal weg, ein wenig weinen

LOL ich folgere daraus mal, dass es jetzt klappt

[glkgereon]

Zitat von tommie-lie:

Was ist denn das für ein Konstruktut?
Warum lädst du die Datei nicht gleich ins Memo, anstatt erst in eine Stringlist, nur um die nachher in ein Memo zu kopieren?

Delphi-Quellcode:

Buf.Lines.LoadFromFile(Filename);
Buf.ReplaceAll(Old,New,False);
Buf.Lines.SaveToFile(Filename);
Buf.Free;

(ungetestet)

ich nehme TMemoBuf
das hat kein SaveToFile

[tommie-lie]

Zitat von glkgereon:

ich nehme TMemoBuf
das hat kein SaveToFile

Na dann
Ich habe keine solche Klasse, deswegen dachte ich es sein eine von dir angelegte Klasse für wasuachimmer für eine Aufgabe, abgeleitet von TMemo