Edit-Box Eingabe Kontrolle

[rich123]

Hallo zusammen,

Wie kontrolliert man ob jemand in eine EditBox eine Zahl oder Text eingegeben hat?
Gibts dazu vielleicht ein Command?

Danke schonmal

Gruß

[DeddyH]

Versuch doch einfach, ob sich der eingegebene Text in eine Zahl konvertieren lässt. Wenn Du nur Zahlen zulassen willst, kannst Du Dir mal TMaskEdit ansehen.

[Overclocker]

wenn du den text aber in eine zahl konvertieren willst, dann benutz

strttofloat ()

da strtoint ja nur ganze zahlen umwandelt

grüße

[delphis spassbremse]

Das Thema wurde hier schon öfters behandelt.
Benutze mal die Suchfunktion...

Du kannst im KeyPress event via

Delphi-Quellcode:

if Key in ['0'..'9'] then
  // Es wurde eine Zahl eingegebn
else
  // Es wurde ein anderes Zeichen eingeben

prüfen, was eingegeben wurde.


Björn

[mkinzler]

Oder man nimmt eine spezielle Kompo wie z.B. ne MaskEdit o.ä.

[Deep-Sea]

Zitat von mkinzler:

Oder man nimmt eine spezielle Kompo wie z.B. ne MaskEdit o.ä.

Ist für reine Zahleneingaben ein SpinEdit (z.B. TJvSpinEdit) nicht noch ein wenig besser geeignet?! Finde ich zumindest

[Neutral General]

Hi,

Ich mache es immer so:

Delphi-Quellcode:

if not (Key in ['0'..'9',Chr(VK_BACK),Chr(VK_DELETE)]) then
  Key := #0;

Wenn man VK_BACK und VK_DELETE weglässt, dann wirds schwer eine Eingabe zu korrigieren *g*

Gruß
Neutral General

[Deep-Sea]

Zitat von Neutral General:

Ich mache es immer so:

Delphi-Quellcode:

if not (Key in ['0'..'9',Chr(VK_BACK),Chr(VK_DELETE)]) then
  Key := #0;

Und wie fängst du es ab, das jemand etwas aus der Zwischenablage einfügt? ...
Tja, da sieht man, welche Probleme dadurch entstehen (*hust* SpinEdit *hust* )

[DeddyH]

Hallo, die Frage war

Zitat:

Wie kontrolliert man ob jemand in eine EditBox eine Zahl oder Text eingegeben hat?

und nicht "Welche Komponente lässt nur Zahlen zur Eingabe zu?". Wenn die bisherigen Antworten den TE nicht weiterbringen, kann er sich ja wieder melden.

[Neutral General]

Zitat von Deep-Sea:

Zitat von Neutral General:

Ich mache es immer so:

Delphi-Quellcode:

if not (Key in ['0'..'9',Chr(VK_BACK),Chr(VK_DELETE)]) then
  Key := #0;

Und wie fängst du es ab, das jemand etwas aus der Zwischenablage einfügt? ...
Tja, da sieht man, welche Probleme dadurch entstehen (*hust* SpinEdit *hust* )

Regelmäßig die Zwischenablage leeren










Ok war nurn Scherz