salut tous le monde ,
j'ai un problème avec ce code il m'affiche un message d'erreur (instruction privilégiée),quand il y a une checkbox cochée et il m'affiche indice hors limite quand il y a plusieurs checkbox cochées, je suis sur delphi7et paradox.
merci d'avance pour votre aide.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 procedure TForm1.BitBtn_enregistrerClick(Sender: TObject) var i:integer; begin //1 for i := 1 to (form1.ComponentCount) do begin //2 if (form1.Components[i]) is tcheckbox then begin //3 if Tcheckbox(components[i]).Checked then begin //4 form1.Table1.Open; form1.table1.Append; with form1.Table1 do begin //5 fieldbyname('operation').Value:=(Tcheckbox(Components[i]).Caption); end;//5 form1.table1.post; end; //4 end;//3 end;//2 end//1
Partager