StringReplace funktioniert nicht

[b1zZ]

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.

[himitsu]

Man mag es nicht glauben, aber das einzelzeilenweise Durchlaufen ist eventuell sogar schneller und verbraucht weniger RAM (ist vorallem bei großen Dateien praktisch), aber da LoadFromFile/SaveToFile nicht optimal arbeiten, ist die Speicherersparnis nur bedingt vorhanden.

Was steht denn in "Suchen" und "Ersetzen" drin? Sind da eventuell Zeilenumgrüche (#13 und/oder #10) enthalten?

Ist "Suchen" wirklich in den Dateien enthalten? (richtig geschrieben und so)

Delphi-Quellcode:

If EDatei.Count >= 1 then
begin
  if not AnsiContainsText(EDatei.Text, Suchen) then
    ShowMessage('nee, is nich: ' + ListFilesPath[i]);
  ...

und da du ja keine Delphi-Version angegeben hast (im Post oder Profil )

Delphi-Quellcode:

If EDatei.Count >= 1 then
begin
  if Pos(AnsiUpperCase(Suchen), AnsiUpperCase(EDatei.Text)) = 0 then
    ShowMessage('nee, is nich: ' + ListFilesPath[i]);
  ...

[DeddyH]

Nebenbei bemerkt ist die Abfrage

Zitat:

If EDatei.Count >= 1 then

völlig überflüssig, da die anschließende Schleife bei leerer Liste sowieso nicht durchlaufen wird.