Discussion :

[Ardely]

Avant de programmer je voudrais savoir si c'est possible de cloner une LIstbox avec Object dans une nouvelle TStringList. Quelle commande dois-je utiliser pour faire cela?

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
26
type
  TMyRecord = class(TObject)
    id: NoPos;
  end;
   var
  PMyRecord : TMyRecord;


procedure TForm1.Button1Click(Sender: TObject);
begin
    PMyRecord      := TMyRecord.Create;
    PMyRecord.Id   := '12345';
    ListBox1.Items.AddObject('Red Item', PMyRecord);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
   TsList: TStrings;
begin
   TsList := TStringList.Create;

   TsList.Assign(listbox1.???);

end;    
end;

Merci de vos aides, Salutations

[philnext]

Peut être :
TsList.Assign(listbox1.iTems);

[Ardely]

Je pense que j'avais une fois lu sur le Web quelque part, que TsList.Assign() ne copie pas le contenue de l'Object mais seulement le pointeur de l'Object c'est à dire si je fais Listbox.clear. Je perds les données de l'Object dans la TsList (Je ne suis pas sure ce que je dis pour cela je pose la question...)
Merci pour votre avis et expériences.

[Aka Guymelef]

Non ça ce serait plutôt si tu faisais :

Code :

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

TsList := listbox1.Items

La méthode Assign (dans le but qu'on lui a donné) est là justement pour gérer la copie des données de l'objet source (en paramètre) vers l'objet cible (celui sur lequel on appelle la méthode Assign).

Par contre dans ton exemple les deux listes via leur propriété Object pointerait sur le même PMyRecord car les références d'objets ne sont pas clonés par Assign.

[Ardely]

J'avais cru plus compliqué que sa. J'avais en tête de copier la Listbox dans la Tstring par une boucle. Sa fonctionne comme tu l'as dit. Merci pour l'appui et bonne journée.