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;