Gérer les cases à cocher des Checklistbox : récupérer seulement les lignes cochéRésolu

Question

Bonjour,
J'essaye de trouver une fa&#231;on de r&#233;cup&#233;rer rapidement toutes les donn&#233;es coch&#233;es d'une checklistbox, pour ensuite les renvoyer &#224; l'utilisateur.
J'y arrive en passant chque champs un par un mais je voulais savoir s'il n'y a pas un moyen plus rapide, du style une propri&#233;t&#233; qui r&#233;cup&#233;rerait dans une list toutes les donn&#233;es coch&#233;es.
Si quelqu'un a une id&#233;e, &#231;a m'aiderait beaucoup.
Merci

sylviecl · Accepted Answer

en fait, je me suis d&#233;brouill&#233;e : 

//r&#233;cup&#233;ration des &#233;l&#233;ments coch&#233;s des checklistbox
            ListFAM:=TStringList.Create;
            ListART:=TStringList.Create;
            for i:=0 to CheckListCatalogue.Items.Count -1 do
            begin
                if CheckListCatalogue.checked[i] then
                    ListFAM.Add(Trim(CheckListCatalogue.Items[i]));
            end;
            for i:=0 to CheckListBox1.Items.Count -1 do
            begin
                if CheckListBox1.checked[i] then
                    ListART.Add(Trim(CheckListBox1.Items[i]));
            end;

et apr&#232;s j'utilise les stringlist, ce qui fait que mon application est quand m&#234;me plus rapide que si j'utilisais que le checklistbox
Merci quand m&#234;me !

Nicolas___ · Answer

for i:= 0 to  ComponentCount-1 do
  begin
  if  Components[i] is TCheckBox then
  begin
   if (Components[i] as TCheckBox).Checked = true then showmessage(((Components[i] as TCheckBox).Name) +' est check&#233;');
  end;


  end;

Slt 
nico

Nicolas___ · Answer

zut pas bien lut j ai fait pour les checkbox attend

Nicolas___ · Answer

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
 for i:= 0 to  Checklistbox1.Count-1 do
  begin
  if  Components[0] is TCheckListBox then
  begin


  if (Components[0] as TCheckListBox).Checked[i] = true then showmessage( (Components[0] as TCheckListBox).Items.Strings[i]  +' est check&#233;');
  end;


  end;


end;

voila exemple ac un Tchecklistbox si tu en veix plusieus suffit de changer Components[0] en Components[1] pour le deuxieme ...

en esperant que c ca que tu veux ...

slt

Nicolas___ · Answer

voila la tu la ds un memo donc sur ta fiche il te faut au min un memo une tchecklistbox et un bouton 
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
 for i:= 0 to  Checklistbox1.Count-1 do
  begin
  if  Components[0] is TCheckListBox then
  begin
  if (Components[0] as TCheckListBox).Checked[i] = true then memo1.Lines.Add( ( (Components[0] as TCheckListBox).Items.Strings[i]  +' est check&#233;'));
  end;
  end;

slt

Cirec · Answer

Salut,

il y avait &#231;a aussi :
procedure TForm1.Button2Click(Sender: TObject);
Const
  BoolChars         : Array[Boolean] Of String =  ('Faux', 'Vrai');
 Var  I : Integer;
begin
 Memo1.Clear;
 For I : = 0 To Checklistbox1.Items.count - 1 do
 Memo1.Lines.Add(Format('Name : %s  Checked : %s',
 [Checklistbox1.Items[I], BoolChars[Checklistbox1.Checked[I]]]));
end;



 

@+
Cirec

f0xi · Answer

solution plus propre :

function GetChecked(const list : tchecklistbox) : tstringlist;

var x : integer;

begin

    if list.count = 0 then exit;

    for x := 0 to list.count-1 do 

        if list.checked[x] then 

           result.add(list.items[x]);

end;

function GetUnchecked(const list : tchecklistbox) : tstringlist;

var x : integer;

begin

    if list.count = 0 then exit;

    for x := 0 to list.count-1 do 

        if not list.checked[x] then 

           result.add(list.items[x]);

end;


... 
begin
   ListFAM := TStringList.Create;
   ListART := TStringList.Create;

   ListFAM.items := GetChecked(CheckListCatalogue);
   ListART.items := GetChecked(CheckListBox1);

   ...
   
   ListFAM.free;
   ListART.free;
end;

 La theorie c'est quand on sait tout, mais que rien ne fonctionne.
La pratique c'est quand tout fonctionne, mais que personne ne sait pourquoi.
<hr>

Cirec · Answer

Salut f0xi,
aurrais-tu un probl&#232;me avec la propret&#233;  
serais-tu maniaque  
tu sais &#231;a se soigne tr&#232;s bien aujourd'hui 


Bon ass&#233; rigol&#233;, un peut de s&#233;rieux maintenant, 
le seul hic dans ta mani&#232;re de proc&#233;der c'est que tu r&#233;cup&#232;re dans une liste &#224; part les Items Checked o&#249; Not Checked peut importe mais pas l'index. En supposant que tu ais plusieurs entr&#233;es dans une CheckListBox et que tu dois effectuer un traitement en fonction de leurs &#233;tats jusque l&#224; pas de soucis mais si tu dois remettre &#224; Not Checked que ceux dont le traitement &#224; r&#233;ussi il te faut une troisi&#232;me liste puisque tu n'as plus aucune concordance entre les index de la CheckListBox et celle de ta liste o&#249; refaire une recherche par nom pour retrouver les Items. 

@+
Cirec

Gérer les cases à cocher des Checklistbox : récupérer seulement les lignes coché

8 réponses

Votre réponse

Discussions similaires