string auf zahlen prüfen

[negaH]

Delphi-Quellcode:

if StrToIntDef(Edit1.Text, -1) = -1 then 
  raise Exception.Create('keine gültige Zahl');

// oder
try
  StrToInt(Edit.Text);
// oder
  StrToFloat(Edit1.Text);
except
  raise Exception.Create('keine gültige Zahl');
end;

Gruß Hagen