Zitat von
naudoc:
...aber 3,,,4--4,,, usw kann eingegeben werden...
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 Key:= #0;
end;
Die Behauptung ist ja wohl nicht Dein Ernst ?
Das hier ist jetzt keine Frage, sondern eine Feststellung : es gibt in dem Fall zwei Fehlerquellen. Entweder wurde nicht Edit1 usw. benutzt sondern Edit2 usw. Die nächste wäre, Edit1 benutzt das Edit2KeyPress oder sonstwas.