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;

[Muetze1]

Zitat:

Zitat von turboPASCAL

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

Wobei wir bei einer solchen Lösung schon mehrfach darauf hingewiesen haben, dass diese nicht sicher ist. Man kann mit den normalen ClipBoard Funktionen frei Text einfügen. Dann sind auch nicht-Zahlen in dem Editfeld und es kommt zum Fehler...