in etwa so....
Delphi-Quellcode:
begin
a:=StrToFloat(Seitea_quader.Text);
b:=StrToFloat(Seiteb_quader.text);
c:=StrToFloat(Seitec_quader.Text);
VolumenV:=a*b*c;
if Seitec_quader.text = '' then
begin
c:=VolumenV/(a*b)
end
else
if ....
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;
Vielleicht solltes Du auch noch bevor Du aus den Seite...Text ein float machst
überprüfen ob der text nicht leer ist.
Grüße
Klaus