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?

markieren

Delphi-Quellcode:

			Position := Pos('&', Text);

if (Position > 0) then

  StringReplace(Text, '&', '&&', []);

Der Text soll übrigens in einem Rechteck angezeigt werden:

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

.

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

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

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

Re: Ersetzung von '&' durch '&&' funktioniert n

Re: Ersetzung von '&' durch '&&' funktioniert n

Re: Ersetzung von '&' durch '&&' funktioniert n

Re: Ersetzung von '&' durch '&&' funktioniert n

Re: Ersetzung von '&' durch '&&' funktioniert n

Re: Ersetzung von '&' durch '&&' funktioniert n

Forumregeln

sirius Registriert seit: 3. Jan 2007 Ort: Dresden 3.443 Beiträge Delphi 7 Enterprise	#2 Re: Ersetzung von '&' durch '&&' funktioniert n 3. Dez 2007, 13:40 Das brauchst du nicht bei DrawText, nur bei der Eigenschaft "Caption" aus der VCL. Dieser Beitrag ist für Jugendliche unter 18 Jahren nicht geeignet.
	Zitat

SirThornberry (Moderator) Registriert seit: 23. Sep 2003 Ort: Bockwen 12.235 Beiträge Delphi 2006 Professional	#3 Re: Ersetzung von '&' durch '&&' funktioniert n 3. Dez 2007, 13:42 auch bei DrawText ist dies der Fall. Bei dem Stringreplace fehlt einfach das Flag rfReplaceAll Jens Mit Source ist es wie mit Kunst - Hauptsache der Künstler versteht's
	Zitat

Luckie Registriert seit: 29. Mai 2002 37.621 Beiträge Delphi 2006 Professional	#4 Re: Ersetzung von '&' durch '&&' funktioniert n 3. Dez 2007, 13:44 StringReplace ist eine Funktion! Michael Ein Teil meines Codes würde euch verunsichern.
	Zitat

DeddyH Registriert seit: 17. Sep 2006 Ort: Barchfeld 27.667 Beiträge Delphi 12 Athens	#5 Re: Ersetzung von '&' durch '&&' funktioniert n 3. Dez 2007, 13:46 Du musst auch die Rückgabe von StringReplace auswerten. [edit] 2 late [/edit] Detlef *"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen."* (Albert Einstein) Dieser Tag ist längst gekommen
	Zitat

daschaos Registriert seit: 23. Mai 2007 117 Beiträge Delphi 2006 Professional	#6 Re: Ersetzung von '&' durch '&&' funktioniert n 3. Dez 2007, 13:48 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.
	Zitat

Muetze1 (Gast) n/a Beiträge	#7 Re: Ersetzung von '&' durch '&&' funktioniert n 3. Dez 2007, 13:48 ... oder alles sein lassen und bei DrawText() einfach bei den Flags noch DT_NOPREFIX mit hinzu odern...
	Zitat