Св-во Data для TListItem

← →
pusrg (2002-05-15 22:13) [0]

Добрый день, уважаемые мастера.

Обьясните каким образом можно в в-ве Data в TListItem хранить строку.

Пишу следующий код:
var LvOrders: TListView;
Pointer:^string;
...
with LvOrder.Items.Add do
begin
Caption:="...";
string(Pointer):=Format("%s;%s",["...","..."]);
Data:=Pointer;
end;

В итоге после обращения к элементу списка следующим образом:
var CurData:string;
CurItem:TListItem;
...
CurValue=string(CurItem.Data);

В строке CurValue иногда правильное значение, а иногда нет, в чем проблема? Заранее благодарен.

← →
MBo (2002-05-16 07:41) [1]

procedure TForm1.Button1Click(Sender: TObject);
begin
s:="qqqq";
listview1.Items[1].Data:=pchar(s);//или @s[1]
end;

procedure TForm1.ListView1SelectItem(Sender: TObject; Item: TListItem;
Selected: Boolean);
begin
if item.Data<>nil then
label1.caption:=string(item.data); //или pchar(item.data)
end;

Св-во Data для TListItem Найти похожие ветки