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:

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

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

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? :P ...
Tja, da sieht man, welche Probleme dadurch entstehen (*hust* SpinEdit *hust* :mrgreen:)

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

Zitat von Deep-Sea

Zitat:

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? :P ...
Tja, da sieht man, welche Probleme dadurch entstehen (*hust* SpinEdit *hust* :mrgreen:)

Regelmäßig die Zwischenablage leeren ;)










Ok war nurn Scherz :mrgreen:

[Deep-Sea]

Zitat:

Zitat von Neutral General

Regelmäßig die Zwischenablage leeren ;)



Ok war nurn Scherz :mrgreen:

Solche Sachen würde mein Chef auch sagen ... nur er würde es ernst meinen :mrgreen:
(Uhh, zu viel OT ... schnell zurück zum Thema, sonst gibts Ärger *gg*) ...

[rich123]

Hallo,

Danke für Eure Hilfe.
Ich habe es mit dem KeyPress Ereignis gelöst.

Gruß

[Deep-Sea]

Zitat:

Zitat von rich123

Ich habe es mit dem KeyPress Ereignis gelöst.

Wie gesagt: Denk an die Zwischenablage! :roll:

[IceBube]

Das Problem mit der Zwischenablage ist leicht zu lösen:

Einfach dem Editfeld ein eigenes PopUp Menü(TPopUpMenu) zuweisen, dann funktioniert das einfügen nicht mehr!


lg

[delphis spassbremse]

CTRL + V ?

:twisted:

[IceBube]

"Strg + V" geht doch, da hab ich mich geirrt sry!

[Deep-Sea]

Zitat:

Zitat von IceBube

Das Problem mit der Zwischenablage ist leicht zu lösen:

Einfach dem Editfeld ein eigenes PopUp Menü(TPopUpMenu) zuweisen, dann funktioniert das einfügen nicht mehr!


lg

Wow, was für eine Lösung - ich persönlich hasse es wie die Pest, wenn mir ein schlecht programmiertes Programm alle Möglichkeiten nimmt, nur weil der Programmierer zu faul ist ... nein halt, ein SpinEdit zu nutzen ist eig. noch viel leichter als diese komische Methode, da man dadurch kein bisschen Code für braucht und dazu auch noch Min- und Max-Grenzen setzen kann, etc. ...

(Sry, dass es etwas rau klingt, steiger mich in sowas zu gerne rein :lol: )

[Neutral General]

@Deep-Sea: Aber vielleicht will man ja ein Edit, in dem man nur Zahlen eingeben darf und kein SpinEdit :P :mrgreen:

[Deep-Sea]

Zitat:

Zitat von Neutral General

@Deep-Sea: Aber vielleicht will man ja ein Edit, in dem man nur Zahlen eingeben darf und kein SpinEdit :P :mrgreen:

Du kennst schon die Komponenten TSpinEdit oder TJvSpinEdit? Dort kann man nur Zahlen eingeben. Genau dafür sind sie ya da :-D (Oder was meinst du?)

(*feierabend mach*)

[mkinzler]

Ist aber auch kein normaler Edit.

[IceBube]

Zitat:

Zitat von Neutral General

IceBube.. Was soll das bringen?

Man überprüft das Clipboard! Wenn es nur Zahlen beinhaltet, dann ist es erlaubt was einzufügen!

Zitat:

Zitat von Neutral General

Außerdem warum StrToFloat?

...hab ich nur schnell geschrieben, jedoch funktioniern tut es ;)...

Zitat:

Zitat von Neutral General

Und wie gesagt. Schonmal was von der Tastenkombination Strg+V gehört? Man braucht kein Popup Menu um in einem Edit was einfügen zu können ;)

Wie oft soll ich mich wiederholen?

Zitat:

Zitat von IceBube

Es funktioniert wenn man dem Editfeld ein PopUp zuweist und ein Item hinzufügt mit dem Shortcut Strg+V! So dann wäre das Problem gelöst

^Ist nicht die idealste Lösung, jedoch immerhin besser als das Clipboard die ganze Zeit zu löschen ;)

lg

[Neutral General]

Zitat:

Zitat von Deep-Sea

Zitat:

Zitat von Neutral General

@Deep-Sea: Aber vielleicht will man ja ein Edit, in dem man nur Zahlen eingeben darf und kein SpinEdit :P :mrgreen:

Du kennst schon die Komponenten TSpinEdit oder TJvSpinEdit? Dort kann man nur Zahlen eingeben. Genau dafür sind sie ya da :-D (Oder was meinst du?)

(*feierabend mach*)

Zitat:

Zitat von mkinzler

Ist aber auch kein normaler Edit.

Genau das meine ich ;)

Ein Spinedit hat die Spin-Buttons. Allein deswegen ist ein Spinedit kein Edit xD

[Deep-Sea]

Zitat:

Zitat von mkinzler

Ist aber auch kein normaler Edit.

Wo ist der Vorteil bzw. Unterschied? ...

Zitat:

Zitat von IceBube

hm? Was meinst du mit "alle Möglichkeiten nimmt"? Wenn in dem Edit Feld nur Zahlen gehören, dann muss man auch das Eingeben von Buchstaben(etc.) unterbinden!

Ein SpinEdit finde ich deshalb nicht gut, weil die Mindestgröße(ich glaub 25) größer ist als das Editfeld(in Normalgröße 24). Zudem schaut ein Edit manchmal besser aus!

Aber das kann jeder selber entscheiden finde ich ;)

lg

Edit:
Es funktioniert wenn man dem Editfeld ein PopUp zuweist und ein Item hinzufügt mit dem Shortcut Strg+V! So dann wäre das Problem gelöst

Mit alle Möglichkeiten mein ich zB. die Zwischenablage. Diese kann ya auch Zahlen enthalten. Warum darf ich diese also nicht nutzen? Weil der Programmierer schlecht programmiert? Na danke :P ...

Zum besser aussehen: Ein SpinEdit ohne die Buttons (kann man bei TJvSpinEdit abschalten) sieht dann genau so aus wie ein normales, da gibt es keinen unterschied :-D



(*offline bin*)

[mkinzler]

Ich habe ja nicht gesagt, dass ein SpinEdit schlecht ist. Seine Frage war aber, wie er bei einem Edit die Eingabe verhindert.

[IceBube]

Dann bleibt natürlich die Möglichkeit, das Clipboard zu überprüfen!?!

Zum Beispiel so:

Delphi-Quellcode:

uses ClipBrd;

procedure EditMouseDown();
var s : double;
begin
try s := strToFloat(Clipbrd.Clipboard.AsText);
Edit1.PopupMenu := nil;
except
Edit1.PopupMenu := PopUp;
end;

[Neutral General]

IceBube.. Was soll das bringen?

Das ist relativ sinnlos. Außerdem warum StrToFloat?

Und wie gesagt. Schonmal was von der Tastenkombination Strg+V gehört? Man braucht kein Popup Menu um in einem Edit was einfügen zu können ;)