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

[mkinzler]

In der IDE oder außerhalb? Innerhalb der IDE wird die Exception trotzdem ausgelöst, wenn man dies nicht abschaltet. Besser wäre es sowieso die Exception zu verhindern.
Z.B. durch die Verhinderung von falschen Eingaben (TMaskEdit, in Events)oder durch die Verwendung anderer Konvertierungsroutienn (TryStrToInt, Val())

[snow]

Ich bekomme die fehlermeldun vom Debugger.

Gruß snow


PS:// ich kann in der Try ...except durch "0" teilen, aber keinen Strtofloat machen.

[mkinzler]

Wie gesagt, kann man das Verhalten für verschiedene Exceptions innerhalb der IDE abschalten. Ich würde aber trotzdem TryStrToFloat() verwenden.

[snow]

Ich hab hier

http://www.delphipraxis.net/internal...t.php?t=110499

das hier gefunden

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var h: real;
begin
if not TryStrToFloat(edit1.text,h) then
begin
  showmessage('Sie Schuft! Geben Sie gefälligst eine gültige Fließkommazahl ein!');
  edit1.text:='';
end;
end;

end.

Nur leider kommt dan beim IDE

Zitat:

[Fehler] Unit1.pas(32): Es gibt keine überladene Version von 'TryStrToFloat', die man mit diesen Argumenten aufrufen kann

warum?

gruß snow

[snow]

Fehler gefunden.
h darf nicht real sein.

Gruß snow