Editfelder für Buchstaben sperren

[paritycheck]

Ich mach das immer so:

Delphi-Quellcode:

procedure TForm1.Edit1Change(Sender: TObject);  //Diese Prozedur als OnChange um Copy/Paste zu verhindern
var i: Integer;
begin
  for i:= 1 to length(Edit1.Text) do begin
      if not (Edit1.Text[i] in ['0'..'9']) then begin
         Edit1.Text:= '';
         break;
      end;
  end;
end;

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;