Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Datenbanken (https://www.delphipraxis.net/15-datenbanken/)
-   -   TDBEdit: Leerzeichen in Seriennummern einfügrn (https://www.delphipraxis.net/213820-tdbedit-leerzeichen-seriennummern-einfuegrn.html)

BlueStarHH 1. Okt 2023 13:49
Datenbank: Firebird • Version: 3.x • Zugriff über: IBDAC
TDBEdit: Leerzeichen in Seriennummern einfügrn
 
Hallo,

ich zeige über ein TDBEdit sehr lange Serienummern an. Diese möchte ich nur zur Anzeige im TDBEdit mit Leerzeichen nach jeweils 5 Stellen versehen. Wenn man ins TDBEdit klickt, um den Text zu barbeiten, sollen die Leerzeichen wieder weg sein. Also so:

Anzeige: IZ1G3 6J844 FS442 DE23A SHYDR
Bearbeiten: IZ1G36J844FS442DE23ASHYDR

Hat jemand eine Idee?

blawen 1. Okt 2023 14:20
AW: TDBEdit: Leerzeichen in Seriennummern einfügrn
 
Zitat:
Zitat von BlueStarHH (Beitrag 1527577)
Hallo,

ich zeige über ein TDBEdit sehr lange Serienummern an. Diese möchte ich nur zur Anzeige im TDBEdit mit Leerzeichen nach jeweils 5 Stellen versehen. Wenn man ins TDBEdit klickt, um den Text zu barbeiten, sollen die Leerzeichen wieder weg sein. Also so:

Anzeige: IZ1G3 6J844 FS442 DE23A SHYDR
Bearbeiten: IZ1G36J844FS442DE23ASHYDR

Hat jemand eine Idee?
Könnte man z.B. mit Copy und Stringreplace beim Verlassen, bzw. beim Anwählen des Feldes erledigt werden.

Olli73 1. Okt 2023 14:48
AW: TDBEdit: Leerzeichen in Seriennummern einfügrn
 
Dafür gibt es das Ereignis "TField.OnGetText".

BlueStarHH 1. Okt 2023 20:48
AW: TDBEdit: Leerzeichen in Seriennummern einfügrn
 
Zitat:
Zitat von Olli73 (Beitrag 1527580)
Dafür gibt es das Ereignis "TField.OnGetText".
Danke, das nehme ich.


Alle Zeitangaben in WEZ +1. Es ist jetzt 23:02 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz