S&R Replace in selber Datei ?

[neus]

Hallo,

ich möchte:

-> Eine Ursprungsdatei sichern und ablegen
-> In der Ursprungsdatei nach Werten suchen und diese in einer neuen Datei ablegen

Jetzt habe ich das Problem, dass ich mehrere Werte ändern möchte und meine While so nicht funktioniert, weil sie
immer auf die selbe Quelldatei zurückgreift.

Gibt es eine einfache möglichkeit eine lokale Datei mit mehreren Search&Replaceaufgaben zu verändern ?

Mein Beispiel:

Delphi-Quellcode:

          
          Strreplacerule:=0;
          while Strreplacerule<ListBox4.Items.Count do
          begin
            AssignFile(OldConfigFile,Edit5.Text+'\'+ListBox3.Items[i]+'_backup.cfg');
            AssignFile(NewConfigFile,Edit5.Text+'\'+ListBox3.Items[i]+'.cfg');
            Reset(OldConfigFile);
            Rewrite(NewConfigFile);
            while not eof (OldConfigFile) do
            begin
              ReadLn(OldConfigFile,NewConfigText);
              NewConfigText:=StringReplace(NewConfigText,ListBox5.Items[Strreplacerule],ListBox6.Items[Strreplacerule],[rfReplaceAll]);
              Write(NewConfigFile,NewConfigText+#10);
            end;
            CloseFile(OldConfigFile);
            CloseFile(NewConfigFile);
            Strreplacerule:=Strreplacerule+1;
          end;