Brauche TEDIT das nur Zahlen einliest

Computer: Software & Programmierung Delphi & Pascal
#1

Ich verwende in meinem Programm eine Vielzahl von TEdit’s zur Zahleneingabe. Für diese TEdit’s möchte ich die Eingaben prüfen, dass auch nur Zahlen eingegeben werden können.
Es gibt unter „KeyPressed“ für jedes TEdit die Möglichkeit, eine Char-Prüfung (0…9, -, . ) in einer eigenen Procedure durchführen zu lassen, bei der Verwendung vieler TEdits ein Riesen Quelltext.
Wie kann ich einen Typ erzeugen, der nur Zifferneingaben zulässt, um unnötig wiederholende Quelltextzeilen zu vermeiden

Vielen Dank und Grüße zum neuen Jahr

E. B.

#2

Hallo,
Du kannst doch die Tastenprüfung in der OnKeyPressed - Methode einmalig schreiben, aber von allen TEdit Feldern zugreifen. Dazu bei Edit1 die Methode Edit1KeyPressed schreiben, dann für Edit2 und alle weiteren im Objektinspektor für OnKeyPressed immer das Edit1KeyPressed auswählen.

Oder schau mal hier:
http://www.bytesandmore.de/rad/cpp/snipp/sc02025.php
Ist zwar C++Builder, lässt sich aber IMHO problemlos auf Delphi umschreiben.

Viel Erfolg
Hans

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

#3

Danke, hat prima geklappt

Mit den besten Neujahrswünschen

E. B.