Discussion :

[petitcoucou31]

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.

[Pascal Jankowski]

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

Je m'explique :

soit:

Code :

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

1
2
3
4
 
TMyObject = class(TObject)
  x: string;
end;

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

Code :

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

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 :

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

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

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

Code :

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

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

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

Cordialement

[anapurna]

salut

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

Code :

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

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 :

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

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

[petitcoucou31]

OK merci çà roule !

a plus.