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