Discussion :

[ftoutin]

Bonjour,

Je voudrais associer dans chaque ligne que j'insere dans ma TlistBox un identifiant (ou un tag).
car il me faudrait qu'une fois la List remplie je puisse double cliquer sur une ligne et recuperer cet identifiant.

vous voyez?

je ne trouve pas beaucoup dinformations la dessus a vrai dire.

[TicTacToe]

Salut

TList.Items étant du type TStrings, tu peux utiliser la propriété 'objects'

Code :

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

1
2
3
MaListBox.Items.Objects[ MaListBox.ItemIndex ] := TObject( UnEntier );
ou bien
MaListBox.ITems.AddObject( machaine, TObject( Monentier ) )

Etant donné que l'entier doit être de type Longint (ou Integer), sur 4 octets quoi.
et à l'inverse

Code :

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

UnEntier := Integer( MaListBox.Items.Objects[ MaListBox.ItemIndex ] );

[ftoutin]

Violent
ca marche nickel!! merci bcp

[Fabrice ROUXEL 1]

Et dans ton entier tu peux même stoquer en plus d'un identifiant, des Booleens par exemple pour indiquer l'etat du champ.

[ftoutin]

Bon en fait le souci c'est que jutilise un string et ca marche nickel lorsque jai un enregistrement dans la TlistBox.

par contre la ou ca devient genant c lorsqu'il ya plusieurs enregistrement, je ne recupere pas vraiment la bonne valeur ou du moins il semble y avoir une erreur de conversion car mon string contient des donnees a la fin (du genre #3###00).

jai utilise ceci :

pour inserer:

Code :

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

1
2
ListBox.Items.Add(Values[0]);
ListBox.Items.Objects[ ListBox.Items.count - 1 ] := Tobject(Values[1]);

Values[0] etant mon libelle et Values[1] mon identifiant (tous 2 des strings)

pour lire:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
procedure TfrmJukebox.ResultBoxDblClick(Sender: TObject);
var
UID: String;
begin
  index:= ResultBox.ItemIndex;
  if index = -1 then exit;
 
  UID := String(ResultBox.Items.objects[index]);
 
end;

[Fabrice ROUXEL 1]

Il ne faut pas l'utiliser comme cela.

Utilises cette méthode:

Code :

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

1
2
3
4
5
6
7
var  id: Integer;
       S: String;
 
  id := 99;
  S := 'Item';
 
  ListBox1.Items.AddObject(S, TObject(id));

TObject est un pointeur qui occupe 4 octets en mémoire.
Tu peux stoquer 32 bits d'informations à cet emplacement.
Un integer étant stoqué sur 32 bits, tu peux placer un entier pour referencer la chaine ou bien 2 word de 16 bits en utilisant l'operateur shl si tu a besoin de 2 valeurs numeriques associées.

[TicTacToe]

J'avais précisé qu'en tant qu'objet tu pouvais mettre une variable qui prend maximum 4 octets en mémoire (la taille d'un TObject comme l'a dit Fabrice).

Tu peux donc mettre, un entier, un boolean, un pointer, un double...
Mais en aucun cas une chaine.

ou bien il faut allouer un espace spécifique pour cela. Allouer une classe et y mettre l'objet (c'est d'ailleurs l'utilité de Objects...)

Mais ce problème précis a déjà été soulevé, et si j'ai le temps je rechercherai le fil de discussion à ce propos.

[aityahia]

dans le titre de ton post vous dit un Tag donc impique que tu a besoin de stocker une valeur entiere

moi je vais opté pour une autres solutions je créer un Tableau de types Voulu et je fai la liason avec l'itemIndex de ma liste et l'indice du tableau

[ftoutin]

ah oui pas mal la derniere solution en fait.

[zemeilleurofgreg]

ou encore mieux...
Créer une structure !!

[philnext]

Pour moi la solution la plus simple est de créer une deuxième TStringList que tu remplis en même temps que ton
ListBox.Items
Du coup tu peux récupérer les valeurs de cette TStringList avec l'index de ton
ListBox.Items