& ersetzen, wenn es nicht als && vorkommt

**himitsu**

Zitat von Sinspin:

Zitat von HolgerX:

s := StringReplace(s, '&', '', []);

Das schießt zu kurz. da würde auch die erwünschten doppel & (&&) platt machen.

Zitat von DeddyH:

Nein, es würde nur das erste Vorkommen von "&" löschen.

markieren

Delphi-Quellcode:

			StringReplace(s, '&', '', [rfReplaceAll]);

ReplaceStr(s, '&', '');

s.Replace('&', '')

**himitsu**

[deleted]

**Uwe Raabe**

Zitat von DeddyH:

Nein, es würde nur das erste Vorkommen von "&" löschen.

Schon, aber das wäre bei einem String "List && Label &Designer" nicht wirklich hilfreich.

**DeddyH**

Das war ja nicht mein Code.

**himitsu**

s := ReplaceStr(ReplaceStr(ReplaceStr(s, '&&', #1), '&', ''), #1, '&')

s := s.Replace('&&', #1).Replace('&', '').Replace(#1, '&')
oder Regexen

**Sinspin**

Zitat von DeddyH:

Nein, es würde nur das erste Vorkommen von "&" löschen.

Jup, du hast recht.

Zitat von himitsu:

s := s.Replace('&&', #1).Replace('&', '').Replace(#1, '&')

Das ist schon richtig gut

, aber die doppelten sollten ja erhalten bleiben.
also : s := s.Replace('&&', #1).Replace('&', '').Replace(#1, '&&') .

Beachten, #1 ist kein String!
Sondern ASCII Nummer 1. Also unwahrscheinlich dass das jemand aus versehen eingetippt hat.

**Uwe Raabe**

Zitat von Sinspin:

aber die doppelten sollten ja erhalten bleiben.

Ich nehme an, die sollen wohl eher durch einfache ersetzt werden, damit man dann den tatsächlich angezeigten String bekommt.

**TurboMagic**

Zitat von Uwe Raabe:

Zitat von Sinspin:

aber die doppelten sollten ja erhalten bleiben.

Ich nehme an, die sollen wohl eher durch einfache ersetzt werden, damit man dann den tatsächlich angezeigten String bekommt.

Deine Annahme stimmt!
Ich habe das mit einer leicht modifizierten Variante der VCL Funktion gelöst, ihr könnt euch also um wichtigere Probleme kümmwern...

**Sinspin**

Nur wenn Du die durch einfaches "&" ersetzt werden dir beim anzeigen via VCL Komponenten diese wieder durch Unterstrich oder unterstrichenen Buchstaben ersetzt und kein & angezeigt. && wird ja verwendet um ein einzelnes & in den Text zu bekommen ohne das es sich in einen Shortcut verwandelt.

**himitsu**

Nicht, wenn du im TLabel das ShowAccelChar auf True setzt.

Aber ja, wie/wo es dann benutzt wird, entscheidet, ob man es als & oder && benötigt.

& ersetzen, wenn es nicht als && vorkommt

AW: & ersetzen, wenn es nicht als && vorkommt

AW: & ersetzen, wenn es nicht als && vorkommt

AW: & ersetzen, wenn es nicht als && vorkommt

AW: & ersetzen, wenn es nicht als && vorkommt

AW: & ersetzen, wenn es nicht als && vorkommt

AW: & ersetzen, wenn es nicht als && vorkommt

AW: & ersetzen, wenn es nicht als && vorkommt

AW: & ersetzen, wenn es nicht als && vorkommt

AW: & ersetzen, wenn es nicht als && vorkommt

AW: & ersetzen, wenn es nicht als && vorkommt

Forumregeln

himitsu Registriert seit: 11. Okt 2003 Ort: Elbflorenz 43.136 Beiträge Delphi 12 Athens	#12 AW: & ersetzen, wenn es nicht als && vorkommt 27. Jun 2022, 12:44 [deleted] Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher. my Delphi wish list : BugReports/FeatureRequests
	Zitat

Uwe Raabe Registriert seit: 20. Jan 2006 Ort: Lübbecke 11.007 Beiträge Delphi 12 Athens	#13 AW: & ersetzen, wenn es nicht als && vorkommt 27. Jun 2022, 13:33 Zitat von DeddyH: Nein, es würde nur das erste Vorkommen von "&" löschen. Schon, aber das wäre bei einem String "List && Label &Designer" nicht wirklich hilfreich. Uwe Raabe Certified Delphi Master Developer Embarcadero MVP Blog: The Art of Delphi Programming
	Zitat

DeddyH Registriert seit: 17. Sep 2006 Ort: Barchfeld 27.540 Beiträge Delphi 11 Alexandria	#14 AW: & ersetzen, wenn es nicht als && vorkommt 27. Jun 2022, 13:58 Das war ja nicht mein Code. 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

himitsu Registriert seit: 11. Okt 2003 Ort: Elbflorenz 43.136 Beiträge Delphi 12 Athens	#15 AW: & ersetzen, wenn es nicht als && vorkommt 27. Jun 2022, 13:59 s := ReplaceStr(ReplaceStr(ReplaceStr(s, '&&', #1), '&', ''), #1, '&') s := s.Replace('&&', #1).Replace('&', '').Replace(#1, '&') oder Regexen Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher. my Delphi wish list : BugReports/FeatureRequests
	Zitat

Uwe Raabe Registriert seit: 20. Jan 2006 Ort: Lübbecke 11.007 Beiträge Delphi 12 Athens	#17 AW: & ersetzen, wenn es nicht als && vorkommt 27. Jun 2022, 15:05 Zitat von Sinspin: aber die doppelten sollten ja erhalten bleiben. Ich nehme an, die sollen wohl eher durch einfache ersetzt werden, damit man dann den tatsächlich angezeigten String bekommt. Uwe Raabe Certified Delphi Master Developer Embarcadero MVP Blog: The Art of Delphi Programming
	Zitat

himitsu Registriert seit: 11. Okt 2003 Ort: Elbflorenz 43.136 Beiträge Delphi 12 Athens	#20 AW: & ersetzen, wenn es nicht als && vorkommt 27. Jun 2022, 16:01 Nicht, wenn du im TLabel das ShowAccelChar auf True setzt. Aber ja, wie/wo es dann benutzt wird, entscheidet, ob man es als & oder && benötigt. Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher. my Delphi wish list : BugReports/FeatureRequests
	Zitat