hi alle zusammen,
ich muss ein Programm (mit Delphi 7) zur Berechnung des A,V und e des Quader erstellen, bin jetzt so weit gekommen, dass alle Größen berechnen lässt, wenn ich ALLE gegebene Größe vollständig angebe. Wenn ich aber statt 3 gegebene Größen nur 2 habe, dann bricht Delphi bei der Ausführung automatisch ab und zeigt eine Fehlermeldung. Wie kann ich es jetzt machen, dass das Programm bei solchem Fall ein Fenster mit dem Text (z.B. 'Sie müssen noch Seite c angeben, um das Volumen zu berechnen'). danke im voraus
Delphi-Quellcode:
procedure TForm1.BerechneClick(Sender: TObject);
begin
a:=StrToFloat(Seitea_quader.Text);
b:=StrToFloat(Seiteb_quader.text);
c:=StrToFloat(Seitec_quader.Text);
VolumenV:=a*b*c;
Volumen_quader.text:=floatToStr(round(VolumenV*100)/100);
OberflaecheO:=2*(a*b+a*c+b*c);
Oberflaeche_quader.text:=floatToStr(round(OberflaecheO*100)/100);
Diagonale:=a*a+b*b+c*c;
Diagonale:=sqrt(Diagonale);
diage_quader.text:=floatToStr(round(Diagonale*100)/100);
end;