Св-во Data для TListItem [D5, Win2k]
pusrg © (2002-05-15 22:13:00)
Добрый день, уважаемые мастера.
Обьясните каким образом можно в в-ве 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:00) [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;
Наверх 
ЧАТ |
Орешник |
|
