prüfen ob der eingegebene String eine Zahl ist

[Hansa]

Zitat:

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. :twisted:

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 :stupid:
(die im Beitrag #5 auch schon genannt wurde)