Discussion :

[AnterPr]

Bonjour,
S'il vous plaît, j'ai besoin de votre aide dans le code suivant représentées dans les enregistrements montrent d'une base de données sur checklistbox

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
procedure TForm1.Button1Click(Sender: TObject);
var x: Integer;
begin
checklistbox.Items.BeginUpdate;
try
   while not Use_Form.Eof do
  begin
      checklistbox.Items.Add(Use_Form.FieldByName('Name').AsString);
      For x:=0 To (checklistbox.Items.Count-1) do
 
      if Use_Form.FieldByName('Authorization').AsBoolean =True
      then
      checklistbox.Checked[x] := True
                 else
      checklistbox.Checked[x] := False;
     Use_Form.Next;
      end;
 
finally
  checklistbox.Items.EndUpdate;
end;
end;

les Champs de ma Table:
Id :AutoInc
Name :String
Authorization :Boolean

et ce code il me donne que la valeur de texte

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
procedure TForm1.Button1Click(Sender: TObject);
var x: Integer;
begin
checklistbox.Items.BeginUpdate;
try
   while not Use_Form.Eof do
  begin
      checklistbox.Items.Add(Use_Form.FieldByName('Name').AsString);
      Use_Form.Next;
      end;
 
finally
  checklistbox.Items.EndUpdate;
end;
end;

[tourlourou]

Je pense (à vérifier) qu'on peut récupérer l'indice de l'item ajouté à la CheckBox et simplifier le code :

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
procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  checklistbox.Items.BeginUpdate;
try
  while not Use_Form.Eof 
  do begin
    i := checklistbox.Items.Add(Use_Form.FieldByName('Name').AsString);
    checklistbox.Checked[i] := Use_Form.FieldByName('Authorization').AsBoolean;
    Use_Form.Next;
  end;
finally
  checklistbox.Items.EndUpdate;
end;
end;

[AnterPr]

Désolé, mais sa n'a pas réussi

[Andnotor]

Désolé, mais sa n'a pas réussi

C'est vague. Que constates-tu ?
Le code de tourlourou semble parfaitement correct !

[AnterPr]

bonsoir,
je m'excuse mes frères
L'opération a réussi avec une base de données Access
Merci.