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.