Frage zu StrToFloat

[ManuMF]

try..except oder StrToFloatDef

Delphi-Quellcode:

try
  Zahl := StrToFloat(Edit.Text);
except
  Showmessage('Fehlerhafte Eingabe!');
  Edit.SetFocus;
  exit;
end;

// Oder

Zahl := StrToFloatDef(Edit.Text, 0);
If (Zahl = 0) then
begin
  Showmessage('Fehlerhafte Eingabe!');
  Edit.SetFocus;
  exit;
end;

Gruß,
ManuMF