Anfänger: Try&except Problem

[Luckie]

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;