Главная страница
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.014 c
1-88460
YuriG
2002-05-15 12:50
2002.05.27
По поводу метафайлов


3-88374
Maloy
2002-05-03 00:22
2002.05.27
Неподдерживаемая операция


1-88534
Juli
2002-05-16 11:01
2002.05.27
Время


1-88512
MaximatorVeter
2002-05-15 19:26
2002.05.27
Подкиньте примеры по ООП


14-88638
esprit_bel
2002-04-17 10:25
2002.05.27
Работа с текстом