Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.05.27;
Скачать: CL | DM;

Вниз

Св-во 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;



Страницы: 1 вся ветка

Текущий архив: 2002.05.27;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.012 c
3-88335
DieHard
2002-04-30 12:19
2002.05.27
Оптимизация запроса


3-88365
perov
2002-05-02 12:06
2002.05.27
модификация свойств объектов Fast Report


3-88350
Ura
2002-04-30 10:45
2002.05.27
Немогу создать уникальный индекс в IB


14-88606
ProgMan
2002-04-17 11:18
2002.05.27
Погиб Форум.


1-88510
Stexen
2002-05-14 22:59
2002.05.27
AVI AVI AVI AVI AVI AVI AVI AVI AVI AVI AVI AVI AVI AVI AVI