StringReplace ersetz nichts

[Sascha_OW]

Hallo,

ich habe folgenden Code:

Delphi-Quellcode:

   for i := 0 to Memo1.Lines.count -1 do begin
       test123 := Memo1.Lines[i];
       StringReplace (test123, '&','&',[rfReplaceAll]);
       StringReplace (test123, #27,''',[rfReplaceAll]);
       StringReplace (test123, '<','&lt;',[rfReplaceAll]);
       StringReplace (test123, '>','&gt;',[rfReplaceAll]);
       StringReplace (test123, '"','&quot;',[rfReplaceAll]);
       StringReplace (test123, 'Ä','Ä',[rfReplaceAll]);
       StringReplace (test123, 'Ö','Ö',[rfReplaceAll]);
       StringReplace (test123, 'Ü','Ü',[rfReplaceAll]);
       StringReplace (test123, 'ä','&#228',[rfReplaceAll]);
       StringReplace (test123, 'ö','ö',[rfReplaceAll]);
       StringReplace (test123, 'ü','ü',[rfReplaceAll]);
       StringReplace (test123, 'ß','ß',[rfReplaceAll]);
end;

und wenn ich jetzt ein ä, ö etc in der Memo hab ersetz er mir nichts. Kann mir einer helfen wiesop?

[sh17]

Delphi-Quellcode:

test123 := StringReplace (test123, '&','&',[rfReplaceAll]);

[Luckie]

StringReplace it eine Funktion. Sollte aber auch durch einen Blick in die Hilfe ersichtlich sein.

[Flare]

Hi Sascha_OW!

Du kannst eigentlich auch gleich die Eigenschaft Text von der Memo nehmen, die beinhaltet alle Zeilen. Dann brauchst du keine Schleife. Ich weiß nicht ob das Performance bringt, auf jeden Fall ist es übersichtlicher.


Flare

[Sascha_OW]

och mensch,,,, bin ich doof, schon 100 mal benutz und trotzdem wieder vergessen... danke
-------------

Aber ich habe noch eine Frage. Ich will das für eine XML Datei Anwenden, das ist die Sonderzeichen damit bearbeite. Im gleichen Text stehen aber HTML Tags, wie kann ich das machen das er die ignoriert beim ersetzen habt ihr vlt. ein Vorschlag

[Eichhoernchen]

Mist hab die parameter verwechselt. .....