Code: Alles auswählen
AnsiReplaceText('abcdßabcdßabcd', 'a', 'x') => 'xbcdßaxcdßabxd'Code: Alles auswählen
StringReplace('abcdßabcdßabcd', 'a', 'x', [rfReplaceAll])
Ich war auch sicher, dass AnsiReplaceText intern auf StringReplace umleitet...Code: Alles auswählen
AnsiReplaceText(UTF8Decode('abcdßabcdßabcd'), 'a', 'x')Code: Alles auswählen
ShowMessage(UTF8Encode(AnsiReplaceText(UTF8Decode('abcdßabcdßabcd'), 'a', 'x')));Hmm, nun interessiert mich natürlich brennend, was du nicht sagen wolltest.theo hat geschrieben:Nulla.
Wäre schon einen Eintrag im Bugtracker wert, das das Verhalten zumindest dokumentiert ist.enyaw_ecurb hat geschrieben:StrReplace ohne rfIgnoreCase (also AnsiReplaceStr) funktioniert...
StrReplace mit rfIgnoreCase (also AnsiReplaceText) haut nicht hin
Bug oder Feature? Leider brauche ich für meine Anwendung eigentlich letztere Variante...
mse hat geschrieben:Hmm, nun interessiert mich natürlich brennend, was du nicht sagen wolltest.
Naja, ANSIReplaceText behauptet ja nicht, es könne mit Unicode umgehen.af0815 hat geschrieben:Wäre schon einen Eintrag im Bugtracker wert, das das Verhalten zumindest dokumentiert ist.
hmmm... habe mich schon immer gefragt, aus welchem Teil der Schweiz du wirklich stammsttheo hat geschrieben: Immerhin eine Gelegenheit ein paar Brocken italienisch [...] französische "néant" [...]
Ich auchEuklid hat geschrieben: hmmm... habe mich schon immer gefragt, aus welchem Teil der Schweiz du wirklich stammst
Allerdings kann man den WideString dann schön "per Hand" durchsuchen und ersetzen.theo hat geschrieben:Da hilft auch Monta's Liebesmüh mit UTF8Decode nichts, das gäbe nämlich einen WideString zurück den AnsiReplaceText nicht entgegen nimmt.
Intern benutzt das aber auch nur ein StringReplace. Und wenn man sich die StringReplace-Funktion anschaut wird dort intern wieder ein AnsiUpperCase verwendet. In der Beschreibung von AnsiUpperCase (http://www.freepascal.org/docs-html/rtl ... rcase.html) steht nun explizit "It takes into account the operating system language settings when doing this, so special characters are converted correctly as well.". Dazu soll ein Widestring-Manager installiert sein, was ich hoffentlich mit Einbinden von cwstring getan habe.Es ist eher seltsam, dass es mit den Umlauten klappt.enyaw_ecurb hat geschrieben: Meine Frage: Wenn eine Ansi-Funktion jetzt vorgibt mit speziellen Zeichen zurechtzukommen und dafür einen widestringmanager braucht, dann sollte die Sache doch eigentlich funktionieren, oder? Immerhin klappt es mit normalen Umlauten 'ä,ö,ü' auch ganz gut...
Code: Alles auswählen
Function WideStringReplace(const S, OldPattern, NewPattern: WideString; Flags: TReplaceFlags): WideString;
var
Srch,OldP,RemS: WideString; // Srch and Oldp can contain uppercase versions of S,OldPattern
P : Integer;
begin
Srch:=S;
OldP:=OldPattern;
if rfIgnoreCase in Flags then
begin
Srch:=WideUpperCase(Srch);
OldP:=WideUpperCase(OldP);
end;
RemS:=S;
Result:='';
while (Length(Srch)<>0) do
begin
P:=Pos(OldP, Srch);
if P=0 then
begin
Result:=Result+RemS;
Srch:='';
end
else
begin
Result:=Result+Copy(RemS,1,P-1)+NewPattern;
P:=P+Length(OldP);
RemS:=Copy(RemS,P,Length(RemS)-P+1);
if not (rfReplaceAll in Flags) then
begin
Result:=Result+RemS;
Srch:='';
end
else
Srch:=Copy(Srch,P,Length(Srch)-P+1);
end;
end;
end;
Verein
Links
Suche