& ersetzen, wenn es nicht als && vorkommt

**Redeemer**

Hallo,

möglich, dumm dabei nur, dass man dann eine VCL Unit
in nicht GUI Code (das wäre nämlich im Code zum Auslesen von Produktnamen
aus der DB) einbinden müsste...

Was machen Accelerators in der DB?

**HolgerX**

Hmm..

Wenn es immer nur um das erste '&' geht, dann würde ein
s := StringReplace(s, '&', '', []);
genau dies tun..

**Sinspin**

Zitat von HolgerX:

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

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

Das dagegen funktioniert:

Zitat von Uwe Raabe:

zusammenfalten · markieren

Delphi-Quellcode:

			function StripHotkey(const Text: string): string;

var

  I: Integer;

begin

  Result := Text;

  I := 1;

  while I <= Length(Result) do

  begin

    if Result[I] = '&' then

      Delete(Result, I, 1);

    Inc(I);

  end;

end;

**DeddyH**

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

**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.

& 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

Redeemer Registriert seit: 19. Jan 2009 Ort: Kirchlinteln (LK Verden) 1.115 Beiträge Delphi 2009 Professional	#1 AW: & ersetzen, wenn es nicht als && vorkommt 26. Jun 2022, 21:15 Zitat von TurboMagic: Hallo, möglich, dumm dabei nur, dass man dann eine VCL Unit in nicht GUI Code (das wäre nämlich im Code zum Auslesen von Produktnamen aus der DB) einbinden müsste... Was machen Accelerators in der DB? Janni 2005 PE, 2009 PA, XE2 PA
	Zitat

HolgerX Registriert seit: 10. Apr 2006 Ort: Leverkusen 981 Beiträge Delphi 6 Professional	#2 AW: & ersetzen, wenn es nicht als && vorkommt 27. Jun 2022, 06:46 Hmm.. Wenn es immer nur um das erste '&' geht, dann würde ein s := StringReplace(s, '&', '', []); genau dies tun.. (Ja ich Verwende Delphi 6 Pro und will NICHT wechseln!)
	Zitat

DeddyH Registriert seit: 17. Sep 2006 Ort: Barchfeld 27.656 Beiträge Delphi 12 Athens	#4 AW: & ersetzen, wenn es nicht als && vorkommt 27. Jun 2022, 12:21 Nein, es würde nur das erste Vorkommen von "&" löschen. 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 44.339 Beiträge Delphi 12 Athens	#6 AW: & ersetzen, wenn es nicht als && vorkommt 27. Jun 2022, 12:44 [deleted] Ein Therapeut entspricht 1024 Gigapeut.
	Zitat

Uwe Raabe Registriert seit: 20. Jan 2006 Ort: Lübbecke 11.629 Beiträge Delphi 12 Athens	#7 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.656 Beiträge Delphi 12 Athens	#8 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 44.339 Beiträge Delphi 12 Athens	#9 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 Ein Therapeut entspricht 1024 Gigapeut.
	Zitat