Woher kommt nur der unsägliche Ausdruck "if-Schleife"? Es gibt KEINE if-Schleifen!
Wozu der try-except Block?
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
begin
if (Zahl1 = 0) or (Zahl2 = 0) then
begin
Label5.Caption := 'Zahl 1 oder 2 ist 0, Division nicht möglich'
end
else
begin
Ergebnis := Zahl1 / Zahl2;
Label5.Caption := 'Division möglich, Ergebnis: ' + FloatToStrF (Ergebnis, FFNumber, 8, 2);
end;
end;
Wobei der Divident auch null sein kann. Nur durch null teilen darf man nicht.
Wenn du es unbedingt mit einem try-except Block machen willst, lass die if-Bedingung weg:
Delphi-Quellcode:
procedure TForm9.Button1Click(Sender: TObject);
var
Zahl1, Zahl2: Integer;
begin
Zahl1 := StrToInt(Edit1.Text);
Zahl2 := StrToInt(Edit2.Text);
try
Label1.Caption := 'Ergebnis: ' + FloatToStrF(Zahl1 / Zahl2, ffNumber, 8, 2);
except
On E: EZeroDivide do
Label1.Caption := 'Division durch null. Division nicht möglich';
end;
end;