Ersetzung von '&' durch '&&' funktioniert nicht

[daschaos]

Habe ja gelesen, dass ein einfaches '&' nicht dargestellt werden kann, da es anderweitig codiert wird. Also
will ich meinen Text, falls ein '&' vorhanden, durch '&&' erweitern. Warum funktioniert der Code nicht?

Delphi-Quellcode:

Position := Pos('&', Text);
if (Position > 0) then
  StringReplace(Text, '&', '&&', []);

Der Text soll übrigens in einem Rechteck angezeigt werden:

Delphi-Quellcode:

tnt_DrawTextW(Canvas.Handle, PWideChar(Text), Length(Text), Rect, TextFormat);

Wo liegt mein Denkfehler?! Wäre toll, wenn mir da jemand weiterhelfen könnte! Danke!

[sirius]

Das brauchst du nicht bei DrawText, nur bei der Eigenschaft "Caption" aus der VCL.

[SirThornberry]

auch bei DrawText ist dies der Fall. Bei dem Stringreplace fehlt einfach das Flag rfReplaceAll

[Luckie]

StringReplace ist eine Funktion!

[DeddyH]

Du musst auch die Rückgabe von StringReplace auswerten.

[edit] 2 late [/edit]

[daschaos]

Das mit dem rfReplceAll hatte ich auch schon ausprobiert gehabt, hatte aber nichts genützt.

Aber oh Mann, danke. Wenn ich den Text zuweise - Text := StringReplace(...) gehts natürlich.
Das hätte mir auch mal selber auffallen können:(.

[Muetze1]

... oder alles sein lassen und bei DrawText() einfach bei den Flags noch DT_NOPREFIX mit hinzu odern...