Also ich habe das mit dem dividieren durch null verhindern leider irgenwie nicht geschafft obwohl ich folgenden Code verwendet habe
if strtofloat(edit2.Text)= 0 then ShowMessage ('Durch null darf nicht dividiert werden');
dann kann er das Programm das öffnen, jedoch zeigt er nicht die Nachricht die ich gezeigt haben wollte, selbst wenn ich durch null dividiere. Wenn ich jedoch folgenden code schreibe :
if strtofloat(edit2.Text)= 5 then ShowMessage ('Durch null darf nicht dividiert werden');
, also das er bei fünf eine Meldung ausgeben, soll und sonst weder Position noch irgendwas anderes am Code verändere erscheint doch eine Meldung. Was soll ich tun? Ich habe das Gefühl das liegt daran, das dann die Meldung floating point division by zero ausgegeben wird. Bitte helft mir
Ehm .. ich bin mir nicht sicher, hast du nach deinem
IF StrToFloat(edDivisor.Text) = 0
auch ein Exit? Denn es darf ja nichts mehr geschehen, wenn du durch 0 dividierst.
Also:
Delphi-Quellcode:
IF StrToFloat(edDivisor.Text) = 0 THEN
begin
ShowMessage('..');
Exit;
end;