prüfen ob der eingegebene String eine Zahl ist

[Hansa]

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;

[ATS3788]

TryStrToInt(const S: string; out Value: Integer): Boolean;

[Sir Rufo]

Da wird sich der TE aber freuen, dass er nach ca. 8 Jahren eine Lösung bekommt
(die im Beitrag #5 auch schon genannt wurde)