Try-Except Hilfe

[DeddyH]

Wie wäre es denn so (über das Leeren des Edits kann man sich ja streiten, aber das ist nicht meine Sache)?:

Delphi-Quellcode:

//Für ältere Delphis unelegant implementiert
function TryStrToFloat(const s: string; out Number: double): Boolean;
begin
  try
    Number := StrToFloat(s);
    Result := true;
  except
    Result := false;
  end;
end;

procedure TForm5.Edit1Change(Sender: TObject);
var
  Zahl: double;
begin
  if (Sender is TEdit) and (TEdit(Sender).Text <> '') and (TEdit(Sender).Text <> '-') then
    if not TryStrToFloat(TEdit(Sender).Text, Zahl) then
      TEdit(Sender).Text := '';
end;