Cloner Listbox vers Tstring!
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:
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
