Ich glaube du willst so etwas:
Delphi-Quellcode:
if (SeiteA+SeiteB<SeiteC) or (SeiteA+SeiteC<SeiteB) or (SeiteB+SeiteC<SeiteA) then
write1.caption:=('Berechnung nicht Möglich')
else
begin
Flaeche:=Sqrt(s*(s-SeiteA)*(s-SeiteB)*(s-SeiteC));
FlaecheEdit.Text:=FloatToStr(Flaeche);
UmfangEdit.Text:=FloatToStr(Umfang);
end;
Marc
9 von 10 Stimmen in meinem Kopf sagen ich bin nicht verrückt, die 10. summt die Melodie von Tetris... | Wenn das die Lösung ist, dann hätte ich gerne mein Problem zurück! |
engbarth.es