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