1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

b := sqrt(r1*r1+r2*r2-2*r1*r2*cos(theta1));


// Eigentliche Unit....

procedure TForm1.Button1Click(Sender: TObject);

 var
  be, alf, bet, Fa, Mkl : Double;
  s : String;

begin

  Start(StrToFloat(Edit1.Text),StrToFloat(Edit2.Text),StrToFloat(Edit3.Text),
        StrToFloat(Edit4.Text),StrToFloat(Edit5.Text),StrToFloat(Edit7.Text),
        StrToFloat(Edit11.Text),be, alf, bet, Fa, Mkl);

  Str(be:6:2, s);

  Edit8.Text := s;   //die berechnete Länge b wird also in Edit8 ausgegeben

 ...					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:

alpha3 := arccos((b*b+s2*s2-c*c)/(2*b*s2));

// wieder in eigentlich Unit...

procedure TForm1.Button2Click(Sender: TObject);

var
  i : Integer;
  s : String;
  a: Double;

begin

   for i := StrToInt(Edit7.Text) to 270 do

   begin

   StringGrid1.RowCount := i+1;

   StringGrid1.Cells[0,i] := IntToStr(i);

   ende(i,StrToFloat(Edit1.Text),StrToFloat(Edit2.Text),StrToFloat(Edit3.Text),StrToFloat(Edit4.Text),
   StrToFloat(Edit8.Text),a);  //hier wird die Gleitkommazahl ausgelesen und als Parameter übergeben

   Str(a:4:2, s);

   StringGrid1.Cells[2,i] := s;

   end;

end;					

1:

DecimalSeparator := '.';					

1:
2:

if Key in [',','.',';',':'] then   
      Key :=DecimalSeparator;