Discussion :

[Triste]

Pour ajouter des éléments dans la liste :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
var
  mylist : Tlist;
  k : Integer;
  renvois : Pointer;
begin
  k := 2;
  myList := TList.Create;
  mylist.Add(Pointer(k));
  renvois := mylist.First;
  ShowMessage(IntToStr(Integer(renvois)));
end;

Mais pour afficher ces éléments j'utilise quel fonction ????????

[sjrd]

Si tu veux afficher un par un tous les éléments de la liste, utilise une boucle for de 0 à Count-1, comme ceci :

Code :

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

1
2
3
4
5
var
  I: Integer;
...
for I := 0 to MyList.Count-1 do
  ShowMessage(IntToStr(Integer(MyList[I])));

[Triste]

ok, merci bien

[sjrd]

Si tu as trouvé la solution à ton problème, pense au bouton qui se trouve en bas de cette page
Merci.