Alternativ kannst dus auch mit einem try-except-Block lösen:
Delphi-Quellcode:
try
SpinEdit3.Value:=SpinEdit1.Value div SpinEdit2.Value;
except
MessageDlg('Ungültiger Wert!', mtError, [mbOk], 0);
end;
Greetz
alcaeus
PS: Beim testen die Delphi-Exceptions in den Debugger-Optionen ausschalten, andernfalls kommt die Exceptionmeldung immer noch.
[add]
Zitat von
Saimen:
man darf auch nicht durch 1 teilen
Und wieso nicht?
Zitat von
Saimen:
und auserdem wieso mach irgendwas?
Weil er zu faul war nachzusehen, was du machen willst und der Code als Beispiel gedacht war
[/add]
[add2]
Zitat von
Saimen:
Ich hab jetzt ehrlich gesagt kein wort verstanden
Wovon hast du kein Wort verstanden?
[/add2]