try-except (strtoint) geht nicht

[turboPASCAL]

Also ich würde ja gar nicht erst nix anderes als Zahlen im Editfeld zulassen ala:

Delphi-Quellcode:

procedure TMyFormX.EditXKeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in ['0'..'9', Chr(VK_TAB), Chr(VK_BACK), Chr(VK_RETURN), Chr(VK_DELETE)]) then
  begin
    Key := #0;
    MessageBeep(0);
  end;
end;