Frage zu StrToFloat

[ManuMF]

Delphi-Quellcode:

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

// Oder

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

Gruß,
ManuMF