Discussion :

[Nechba]

Bonjour a tous
je veux sélectionner un colonne une seul fois pour éviter la répétition
voila 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
 
procedure TForm1.Button3Click(Sender: TObject);
Var
i   :Integer;
test: integer  ;
begin
For i:=0 to ListBoxTables.Items.count -1 do
  begin
     If ListBoxTables.selected[i] then
     begin
         ListBoxColonnes.Items.Add(ListBoxTables.Items.Strings[i]);
      end ;
end;
end ;

Merci D'avance