ok sry divBoy0 ehm nya mein Probs wechseln das habsch jetz alles hingekriegt aber jetzt weiß ich nicht was ich machen soll ich hätte gerne das wenn:
Delphi-Quellcode:
if (SeiteA+SeiteB<SeiteC) or (SeiteB+SeiteC<SeiteA) or (SeiteA+SeiteC<SeiteB) 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);
write1.Caption:=(' ')
end
end;
das ich noch mher nach then schreiben könnte also das mehreres geschieht wenn halt die bedingungen für if erfüllt erden z.b das er den umfang trotz dem berechnet sowie in das Flaeche editfenster einen - schreibt geht das denn?
ich dachte mirs so aber funzt nich:
Delphi-Quellcode:
if (SeiteA+SeiteB<SeiteC) or (SeiteB+SeiteC<SeiteA) or (SeiteA+SeiteC<SeiteB) then
write1.caption:=('Berechnung nicht möglich!');
UmfangEdit.Text:=FloatToStr(Umfang);
FlaecheEdit.Text:=('-');
else
begin
Flaeche:=Sqrt(s*(s-SeiteA)*(s-SeiteB)*(s-SeiteC));
FlaecheEdit.Text:=FloatToStr(Flaeche);
UmfangEdit.Text:=FloatToStr(Umfang);
write1.Caption:=(' ')
end
end;
end.
[edit=mkinzler]Delphi-Tags eingefügt Mfg, mkinzler[/edit]