نگهداری یک مقدار string در خصوصیت data مربوط به listview item

[beginner_1395]

کد زیر یک مقدار integer رو در data قرار میده



LI := listview1.Items.Add;
LI.Data := Pointer(1234);
LI.caption := 'test';
LI.ImageIndex := 1;



MyNode := listview1.Selected;
if Assigned(LI) then
begin
MyData := Integer(LI.Data);
end;



وقتی بک مقدار string در کد بالا قرار میدم خطا میگیره


Invalid pointer operation

لطفا راهنمایی بفرمایید چگونه یک string رو در data قرارداده و به آن دسترسی داشته باشیم

[یوسف زالی]

var
L1, L2: TListItem;
s: string;
begin
s := 'L1 caption';


L1 := listview1.Items.Add;
L1.Data := Pointer(s);
L1.caption := 'test 1';


s := 'L2 caption';


L2 := listview1.Items.Add;
L2.Data := Pointer(s);
L2.caption := 'test 2';


Memo1.Lines.Add(String(L1.Data));
Memo1.Lines.Add(String(L2.Data));
end;