Ich hab's endlich geschafft. Ich habe schon die ganze Zeit umgerechnet. Der Fehler war eine falsch gesetzte Klammer, die einen Error zur Folge hatte.
@cortez:
Sobald ich function einsetze, wird "illegal expression" ausgegeben. Habe es nun wie folgt gelöst:
Code:
Winkel1:=WinkelDeg * (Pi / 180);
b := sqrt(sqr(a) + sqr(c) - 2*a*c*cos(Winkel1));
Edit4.text:=FloatToStr(b);
meine primitivere Formel sieht folgendermaßen aus:
Code:
b:=((a * a) + (c * c)) -2*a*c*cos(Winkel1);
Dort fehlte zwar, die Wurzel, aber es war richtig.
Ich danke euch für eure Geduld.
Gruß MrGreEn