Delphi-Quellcode:
EDatei := TStringList.Create;
For i := 0 to ListFilesPath.Count-1 do
begin
EDatei.LoadFromFile(ListFilesPath.Strings[i]);
If EDatei.Count >= 1 then
begin
EDatei.Text := StringReplace(EDatei.Text, Suchen, Ersetzen, [rfReplaceAll, rfIgnoreCase]);
ShowMessage(EDatei.Text); // StringReplace funktioniert?
end;
EDatei.SaveToFile(ListFilesPath.Strings[i]);
ShowMessage('Datei1("'+ListFiles.Items.Strings[i]+'") Ersetzt.');
end;
EDatei.Free;
Hi,
kannst du mal diesen ganz leicht abgeänderten Code nehmen und schauen, ob StringReplace funktioniert hat. Ich habe EDatei.Text verwendet, da du dir das Zeilenweise durchlaufen sparen kannst. Ich hatte vor geraumer Zeit ein ähnliches Problem, bei mir kam der Fehler beim Speichern auf, da die Datei exclusiv geöffnet war.