Zitat von
naudoc:
Wir würde denn ein Tryblock aussehen, der folgendes enthalten soll:
Wenn edit1.text eine zahl ist, dann {irgend ein Befehl}, wenn nicht showmessage('Keine Zahl')
?
Mann, mann. Cross-Postings innerhalb der
DP ? Langsam würde ich wirklich mal das Gehirn einschalten.
Das hier steht jetzt aktuell wegen Dir ca. 10mal neu hier drin. Wegen anderer wohl noch 500mal. Sollen auch die User genervt werden, dann eben so :
Delphi-Quellcode:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); //Das hier im OnKeyPress fängt alles ab was keine Zahl is
begin
if not (Key in ['0'..'9']) then begin
Key:= #0
ShowMessage ('ungültiges Zeichen !');
end;
end;