Hilfe mit value Befehl

[JKING]

Hier habe ich mal eine function Value() geschrieben.
Wenn keine Zahl eingegeben wurde wird als Ergebnis 0 zurückgeliefert.

Delphi-Quellcode:

function Value(s:string):Double ;
begin
  try
    result:=StrToFloat(s);
  except
    // Eingabe ist keine Zahl
    result:=0;
  end;
end;

procedure TForm1.Edit1Exit(Sender: TObject);
var z1,z2,ergebnis:double;
begin
  z1:=Value(Edit1.text);
  z2:=value(Edit2.text);
  Ergebnis:=(z1*z2);
  edit3.text:=floattostr(ergebnis);
end;