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

[Nechba]

voila la solution
-1-il faut ajouter une fonction Check pour la comparaison

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
 
function Check(X:string ; Y:TListBox) : bool  ;
Var i : integer;
 
Begin
    For i:=0 to Y.Items.count -1 do
    begin
     If X=Y.Items[i] then
     begin
         Check:= false ;
 
     end
     else
     begin
     Check:=true;
     end;
 
     end;
 
 
end;

-2-

Code :

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

1
2
3
4
5
6
7
 
For i:=0 to ListBoxTables.Items.count -1 do
  begin
     If ( ListBoxTables.selected[i] and Check(ListBoxTables.Items[i],ListBoxColonnes)) then
     begin
         ListBoxColonnes.Items.Add(ListBoxTables.Items.Strings[i]);
      end ;