AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Win32/Win64 API (native code) & ersetzen, wenn es nicht als && vorkommt

& ersetzen, wenn es nicht als && vorkommt

Ein Thema von TurboMagic · begonnen am 26. Jun 2022 · letzter Beitrag vom 28. Jun 2022
Antwort Antwort
Seite 1 von 3  1 23   
TurboMagic

Registriert seit: 28. Feb 2016
Ort: Nordost Baden-Württemberg
2.403 Beiträge
 
Delphi 11 Alexandria
 
#1

& ersetzen, wenn es nicht als && vorkommt

  Alt 26. Jun 2022, 13:33
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
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
40.771 Beiträge
 
Delphi 11 Alexandria
 
#2

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

  Alt 26. Jun 2022, 13:56
Delphi-Referenz durchsuchenStripHotkey?
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list
  Mit Zitat antworten Zitat
TurboMagic

Registriert seit: 28. Feb 2016
Ort: Nordost Baden-Württemberg
2.403 Beiträge
 
Delphi 11 Alexandria
 
#3

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

  Alt 26. Jun 2022, 14:03
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
  Mit Zitat antworten Zitat
Benutzerbild von Uwe Raabe
Uwe Raabe

Registriert seit: 20. Jan 2006
Ort: Lübbecke
9.954 Beiträge
 
Delphi 11 Alexandria
 
#4

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

  Alt 26. Jun 2022, 14:05
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;
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat
Redeemer

Registriert seit: 19. Jan 2009
Ort: Kirchlinteln (LK Verden)
954 Beiträge
 
Delphi 2009 Professional
 
#5

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

  Alt 26. Jun 2022, 22:15
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
  Mit Zitat antworten Zitat
HolgerX

Registriert seit: 10. Apr 2006
Ort: Leverkusen
954 Beiträge
 
Delphi 6 Professional
 
#6

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

  Alt 27. Jun 2022, 07: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!)
  Mit Zitat antworten Zitat
TurboMagic

Registriert seit: 28. Feb 2016
Ort: Nordost Baden-Württemberg
2.403 Beiträge
 
Delphi 11 Alexandria
 
#7

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

  Alt 27. Jun 2022, 09:04
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.
  Mit Zitat antworten Zitat
bcvs

Registriert seit: 16. Jun 2011
623 Beiträge
 
Delphi 11 Alexandria
 
#8

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

  Alt 27. Jun 2022, 09:19
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?
  Mit Zitat antworten Zitat
Benutzerbild von Sinspin
Sinspin

Registriert seit: 15. Sep 2008
Ort: Dubai
431 Beiträge
 
Delphi 10.3 Rio
 
#9

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

  Alt 27. Jun 2022, 13:20
s := StringReplace(s, '&', '', []);
Das schießt zu kurz. da würde auch die erwünschten doppel & (&&) platt machen.

Das dagegen funktioniert:
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;
Stefan
Wo befindet das Universum? Welche Farbe hat es ohne Zeit? Durch was fließt gravimetrische Energie? Wer macht morgen meinen Kaffee?
Mein Interesse wird hochohmig wenn mir jemand was verkaufen will.
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.474 Beiträge
 
Delphi 11 Alexandria
 
#10

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

  Alt 27. Jun 2022, 13: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
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 3  1 23   

Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 05:59 Uhr.
Powered by vBulletin® Copyright ©2000 - 2023, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf