comment ajouter un Colonne en TlistBox une seule fois

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 ;

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

Code:

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:

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 ;