ListeBox.. et object

bonjour ,
J'ai une listbox qui a un object associé a ces items.

Donc en ce moment j'ai une (2eme string) associé a mes items , qui est creé au moment de l'ajout de ma chaine dans ma listbox (ListBox1.Items.AddObject(...) )

Je sais changer le contenu de l'items selectionné , mais pas
le contenu de l'object de l'items !!.

quelqu'un peut il m'aiguiller pour modifier le contenu de l'object ?

merci d'avance.

Il faut caster l'objet récupéré.

Je m'explique :

soit:

Code:

---

1 2 3 4

TMyObject = class(TObject) x: string; end;

---

tu ajoutes dans ton listBox de la façon suivante :

Code:

---

1 2 3 4 5 6 7

var z: TMyObject; begin z := TMyObject.Create; z.x := 'test'; ListBox1.Items.AddObject('un',z) ...

---

Pour afficher le contenue de la partie myObject ce premier élément il suffit de faire

Code:

---

showMessage(TMyObject(ListBox1.Items.Objects[0]).x);

---

Donc pour modifier il suffit simplement de faire par exemple pour l'objet d'indice 0

Code:

---

TMyObject(ListBox1.Items.Objects[0]).x := valueStr

---

Regarde bien les méthodes
indexOf, indexOjObject pour retrouver les indices à passer à ListBox1.Items.Objects[indice]

Cordialement

salut

deja definir le type d'objet que l'on veut
exemple

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

type TmysString = Class(Tobject) Private fvalue : String ; Procedure Setvalue (avalue : String) ; Function GetValue : String; Public Constructor Create(avalue : String) ; Property Value : String Read GetValue Write Setvalue ; end; implementation Procedure TmysString.Setvalue (avalue : String) ; begin fvalue := avalue; end;   Function TmysString.GetValue : String; begin Result :=fvalue; end;   Constructor TmysString.Create(avalue : String) ; begin fvalue := avalue; end;

---

ensuite son utilisation au sein de ton appli

Code:

---

1 2 3 4 5 6 7 8

var pos : integer; ... begin //on verifie que le libelle n'existe pas if List.Items.IndexOf(Libelle) = -1 Then pos:=List.Items.AddObject(Libelle,TmysString.Create(code));

---

c'est un exemple basique mais le principe est là
@+ Phil

PS argg Trop tard

OK merci çà roule !

a plus.