Pik-9
Tripel-As
Hallo alle zusammen,
ich programmiere nun mit Lazarus und dem Free Pascal Compiler.
Nun habe ich folgendes Problem: Wenn ich Exceptions mit try..except behandeln möchte, stürtzt das Programm immer ab!
Hier ist der Code:
Das wird auch ohne Fehlermeldung kompiliert, aber wenn ich das Programm dann ausführe, und diese Exception auftritt, stürtzt das Programm sofort ab!
Weiß Jemand, was ich falsch mache?
Vielen Dank für eure Hilfe
ich programmiere nun mit Lazarus und dem Free Pascal Compiler.
Nun habe ich folgendes Problem: Wenn ich Exceptions mit try..except behandeln möchte, stürtzt das Programm immer ab!
Hier ist der Code:
Code:
var
M, E: double;
Z: Integer;
begin
try begin
M:=StrToFloat(Edit3.Text)*W;
end;
except
on E: EConvertError do begin
M:=0;
Beep();
Showmessage('Bitte geben Sie nur Zahlen in das Feld "Möglichkeiten pro Sekunde" ein!');
Edit3.Text:='';
end;
end;
end;
Das wird auch ohne Fehlermeldung kompiliert, aber wenn ich das Programm dann ausführe, und diese Exception auftritt, stürtzt das Programm sofort ab!
Weiß Jemand, was ich falsch mache?
Vielen Dank für eure Hilfe