Anfänger: Try&except Problem

[lbccaleb]

Zitat von RunningUp:

Button2: Soll eine Division von Zahl1 und Zahl2 ausführen, dazu soll zunächst im Try Block mit einer If Struktur geprüft werden ob Zahl1 oder Zahl2 = 0 ist, dann nur eine Meldung in Label 5 darüber ausgeben das die Division nicht stattfindet.

Wenn dies nicht gegeben ist, soll im except Block Zahl1 und Zahl2 dividiert, in einer real Variable gespeichert und auf Label 5 ausgegeben werden.

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
begin

try
   if (Zahl1 = 0) or (Zahl2 = 0) then
   Label5.Caption := 'Zahl 1 oder 2 ist 0, Division nicht möglich';

except
   Ergebnis := Zahl1 / Zahl2;
   Label5.Caption := 'Division möglich, Ergebnis: ' + FloatToStrF (Ergebnis, FFNumber, 8, 2);


 end;

end;

end.

Das geht so nicht, da der Except Block nur ausgeführt wird, wenn bei deiner if-Bedingung ein Fehler auftritt.
Wenn du unbedingt ein Exceptblock dort haben willst, musst du es machen wie Luckie es dir schon geschrieben hat.

Ansonnsten halt nur mit If-Bedingungen.

Delphi-Quellcode:

   if (Zahl1 =  0) or (Zahl2 =  0) then
     Label5.Caption := 'Zahl 1 oder 2 ist 0, Division nicht möglich'
   else begin;
     Ergebnis := Zahl1 / Zahl2;
     Label5.Caption := 'Division möglich, Ergebnis: ' + FloatToStrF (Ergebnis, FFNumber, 8, 2);
   end;

Denke aber an das:

Zitat von Luckie:

Wobei der Divident auch null sein kann. Nur durch null teilen darf man nicht.

Nen bissel spät oO