Forum: Object-Pascal / Delphi-Language
Delphi
by p80286,
29. Apr 2008
Hallo thknub,
ich hab mir die Freiheit genommen und Deinen Source mal ausprobiert, da ich es nicht so mit der Mathematik habe und darum nicht so ganz verstanden habe was das Programm genau machen soll.
{Berechnung Winkel Gamma}
if bo1 and bo2 and bo3 = True then b2 := h*arccos(sqr(c)/(sqr(a)+sqr(b)-2*a*b)) else b2 := 0;
Da wird arccos wohl mit den falschen Werten gefüttert.
wenn...
Forum: Object-Pascal / Delphi-Language
Delphi
by p80286,
29. Apr 2008
Hallo Thknub,
hast Du es mal mit dem Debugger versucht? mit und geht einem manchmal ein ganzer Kronleuchter auf.
Bei mir erhalte ich bei folgendem Sourcecode:
procedure TForm1.Button1Click(Sender: TObject);
var
a : real;
begin
form1.Edit3.Text:='xxx';