Checkbox speichern

[franke]

Hallo,

ich habe es in den Quellcode hingeschrieben was es ist.
Ich habe das Problem auch gelöst.
Aber dabei festgestellt, dass ich die Checkboxen beim Laden nicht angeklickt werden.D.H. ich muss einen Befehl schreiben, dass sie auch wieder ausgelesen werden. Wird das über Write gemacht?
Meine Tabelle wird während der Laufzeit erstellt.

Delphi-Quellcode:

begin
   if bowling.Checked then asport[1]:=1.7 else asport[1]:=0.0;
   if billard.Checked then asport[2]:=2.7 else asport[2]:=0.0;
   if surfer.Checked then asport[3]:=3.7 else asport[3]:=0.0;
  TDataModule.TTable.Fields[1].AsString:=
      copy(floattostr(asport[1]),1,3);
usw

Mit Mean meinte ich den Mittelwert. Diese habe ich jetzt so gemacht.
Ist das okay so??

Delphi-Quellcode:

type
  Feld=array[1..3] of single;

var
  asport  :Feld;

function Mittelwert(Arrayname :Feld;Arraylaenge :integer) :single;
var
i :integer;
begin
  result:=0;
  for i := 1 to Arraylaenge do
  begin
    result:=result+Arrayname[i]
  end;
  result:=result/Arraylaenge
end;