Wurzel Problem

[sx2008]

Zitat von Nevermind:

Delphi-Quellcode:

 flaeche := (StrToFloat(edt4.Text) / 2) * StrToFloat(edt6.Text) * (hoehe);
         pnl5.Caption := FloatToStr(flaeche);
         hoehe := nteWurzel((Power(StrToFloat(edt4.Text),2))  - (Power(StrToFloat(edt6.Text) ,2) / 4) , 2);
         pnl6.Caption := FloatToStr(hoehe);

Dieser Sourcecode tut meinen Augen weh und zwar aus folgenden Gründen:
1.) Was ist "edt4", "edt6" oder "pnl5"?
Jedes Control das im Sourcecode angesprochen wird muss einen anständigen Namen wie z.B. "EdtBreite" bekommen!
2.) Bei Berechnungen überträgt man die Eingangsparameter einmal mit StrToFloat() & Co. auf lokale Variablen.
Mit diesen lokalen Variablen wird dann gerechnet und die Ergebnisse wieder mit FloatToStr()& Co. auf die Controls der GUI geschrieben.