& ersetzen, wenn es nicht als && vorkommt

[TurboMagic]

Hallo,

wie kann man am einfachsten einzelne & ersetzen die z.B. in Labels für
sowas benutzt werden: &OK (unterstreicht das O um anzuzeigen, dass Alt-O
diese Aktion auslöst) ohne aber && komplett zu ersetzen?
&& würde ja genutzt, um wirklich ein & in so einem String anzuzeigen und
sollte daher dann ja nur auf & reduziert werden.

Ja, eine eigene Routine wäre schnell geschrieben, aber gibt's da nicht was
vorgefertigtes für?

Grüße
TurboMagic

[himitsu]

StripHotkey?

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

Ich schaue mir das aber später mal an.

Grüße
TurboMagic

[Uwe Raabe]

Der Code ist nicht kompliziert und wenn du auf die Besonderheiten verzichten kannst, kommst du mit einer abgespeckten Version aus:

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;

[Redeemer]

Zitat:

Zitat von TurboMagic (Beitrag 1507873)

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

Delphi-Quellcode:

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

genau dies tun..

[TurboMagic]

Zitat:

Zitat von Redeemer (Beitrag 1507887)

Zitat:

Zitat von TurboMagic (Beitrag 1507873)

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?

Ganz einfach: Benutzer können Produkte anlegen, die dann als Buttons dargestellt werden.
Für diese Buttons können die Nutzer auf diesem Weg Accelerator Keys definieren, was für
Tastaturnutzer hilfreich sein kann.

Danke den vielen Tipps, das ist inzwischen gelöst.

[bcvs]

Zitat:

Zitat von TurboMagic (Beitrag 1507895)

Ganz einfach: Benutzer können Produkte anlegen, die dann als Buttons dargestellt werden.

Sollte man dann nicht besser Produktnamen und Button-Beschriftung getrennt voneinander speichern?

[Sinspin]

Zitat:

Zitat von HolgerX (Beitrag 1507894)

Delphi-Quellcode:

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

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

Das dagegen funktioniert:

Zitat:

Zitat von Uwe Raabe (Beitrag 1507874)

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.