Try.... except will nicht.

[snow]

Hallo

ich hab mal so was hier gebastelt

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var lokal : real;
begin
Try
  lokal := StrToFloat(Edit1.Text);
  Except
    lokal := 0;
    Edit2.Text := '0';
  End;
end;

end.

Ich will einen string in eine Gleitkommazahl wandlen und wieder zurück

ICh will dass wenn ich z.B 's' eingebe die Except-option ausgefürt wird.

Nur es klappt net

Ich bekomme immernoch meine fehlermeldung 's' ist kein gültiger Gleitkommawert.

Weis jemand was da net stimmen kann?

Gruß snow