Discussion :

[pierrot67]

Bonjour

J'ai un duallistdlg et je voudrais insérer les items du "dstlist" dans une table mais le souci c'est qu'il m'insère tous les items
dans une seule ligne.
Comment pourrais-je faire pour qu'il me lise les items 1 par 1.
ci dessous la boucle que j'ai faite.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
procedure TForm7.bsSkinButton1Click(Sender: TObject);
begin
dm2.groupes.First;
repeat
dm2.Groupes.Insert;
dm2.Groupesgroupe.Value:=bsskinedit1.text;
duallistdlg.DstList.Items.count;
dm2.groupesnomprenom.text:= duallistdlg.DstList.Items.text;
dm2.Groupes.Post;
dm2.Groupes.next;
until
dm2.Groupes.Eof;

Merci

[SergioMaster]

Bonjour,

un essai à partir du code et selon ce que j'ai pu comprendre

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
procedure TForm7.bsSkinButton1Click(Sender: TObject);
begin
dm2.Groupes.Active:=True;
for i:=0 to duallistdlg.DstList.Items.count - 1 do
 begin 
   dm2.Groupes.Insert;
   dm2.Groupesgroupe.Value:=bsskinedit1.text;
   dm2.groupesnomprenom.text:= duallistdlg.DstList.Items[i];
   Try
    dm2.Groupes.Post;
   except
     // gérer l'erreur
     dm2.Groupes.Abort;
   end;
 end;
dm2.Groupes.Active:=False;
end;

[pierrot67]

Merci
tout fonctionne du moins comme je veux!