Hallo Leute,

ich habe folgendes Problem: Ich möchte die Eingabe in ein EditField auf Zahlen checken, werden Zahlen eingegeben ist das OK, wenn nicht sollte ein Fehler kommen.
Hat da jemand ne Idee oder nen Hinweis?

Im voraus schon mal vielen Dank,

Ice

Schau mal in der Komponentenliste unter Zusätzlich, da gibt´s MaskEdit. Ist denk ich mal die einfachste Variante. Ansonsten mußt du die Eingabetasten abfragen. Oder du durchsuchst den String im Edtfeld nach deinen Kriterien.

Und zum Erzeugen der Fehlermeldung: ShowMessage() oder MessageDlg(); Je nachdem was du dann machen magst.

sorry mit MaskEdit funktioniert das nicht ich müsste schon eien Abfrage programmieren, aber trotzdem danke!

Wie kann ich denn das word format z.b. in einen Charakter umwandeln?Dann könnte ich nämlich in einem set nach dem Character suchen und wenn er nicht dabei ist einen Error auslösen...

Ice

Hallo,

schau Dir einmal das Ereignis OnKeyPress des Edit-Feldes an. Das ist Dein Einstiegspunkt. Dort kannst Du dann das in Key übergebene Zeichen prüfen, ob es eine Zahl ist.

In etwa so:

Alles klar, vielen dank!!

smiegel hat folgendes geschrieben:

In etwa so: markieren Quelltext     1: 2: 3: 4: TForm1.Edit1KeyPress(Sender:TObject; var Key:Char); begin   if not (Key in ['0'..'9', #8]) then Key:=#0; end;

*An Stirn langt*
Es geht manchmal so einfach und ich denk nich dran.

Hallo,
schau mal hier www.delphi-forum.de/viewtopic.php?t=6261 ich hatte ein ähnliches Problem.
Wobei Du

durch
 s:=edit1.text; ersetzt.

Gruß Hans

Alles klar . vielen Dank!!!!


Ice

kannst auch arbeiten mit array

geht auc so prüfste ob irgendwas drin steht