& 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 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?

[HolgerX]

Hmm..

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

[TurboMagic]

Zitat von Redeemer:

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?

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 von TurboMagic:

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 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:

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.