Delphi-Quellcode:
procedure TFormaktiv.Button2Click(Sender: TObject);
var i :string;
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;
begin
???AktivModule.sportTable.bowling.post:=asport[1];
AktivModule.MainTable.billard:=asport[2];
AktivModule.MainTable.surfer:=asport[3];
end;
Also ich werd grad nicht so ganz schlau aus diesem Stück Code.
der erste Teil passt ja: Du fragst ab ob Checkboxen markiert sind und speicherst dann die Werte ab
was soll aber das 2. begin in deinem Code??
und was ist das AktivModule, was ist sportTabele und was ist MainTable... also beschreib mal ein bisschen genauer was du machen möchtest...
und was ist Mean?