okay also läuft, ist ja auch eigentlich kein Problem, aber nochmal eine Grundsätzliche Frage, hier am beispiel des Timers.
Ich habe verscuht mit try except einen Fehler abzufangen, aber das klappt nicht.
Der Fehler kann in der zweiten Zeile eigentlich gar nciht auftreten, weil die nur abläuft, wenn die erste ohne Fehler ist:
Delphi-Quellcode:
procedure TEinstellungen.Button1Click(Sender: TObject);
var
testi:real;
blubb:integer;
begin
blubb:=0;
try testi:=strtofloat(Edit1.Text);
except
begin showmessage('der Wert muss eine Zahl sein!'#13'z.B. "13" oder "12,34"'); blubb:=1
end
end;
if blubb=0
then
begin showmessage('erfolgreich'); Test.Timer1.Interval:=round(testi*60000); Einstellungen.Visible:=False;
end;
end;
woran liegt das?