Deutsches Lazarusforum

Hallo,
ich hätte gerne eine Lösung die unabhängig für eine einzelne Abfrage funktioniert.
Über if then else.

so wie hier:

procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text := '123.222';
if StrIsReal(Edit1.Text) then
ShowMessage('Valid float number! Gültige Gleitkommazahl!');
end ...