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

Вниз

Сохранение в TTreeNode.Data сгенерированного GUID и показ его.   Найти похожие ветки 

 
3asys   (2003-01-20 14:31) [0]

Как правильно сохранить в TTreeNode.Data сгенерированный GUID (в виде строки), а потом показать его?
Сохраняю так:
TreeView.Items.AddChildObject(ParentNode, NodeName,
Pointer(NodeGUID));
Показываю так:
ShowMessage(String(Pointer(TreeView.Selected.Data)));
Но появляется сообщение с одной открывающей фигурной скобкой.

Как все это сделать правильно?

С Уважением, 3asys


 
jee ©   (2003-01-20 14:43) [1]

Попробуй так
ShowMessage(String(TreeView.Selected.Data^));


 
3asys   (2003-01-20 15:06) [2]

Этот вариант выдает ошибку. Access violation...


С Уважением, 3asys


 
Skier ©   (2003-01-20 15:31) [3]

var
AStr : PString;
begin
//...........
New(AStr);
AStr^ := GUIDInString; //GUID в строке...
TreeView.Items.AddChildObject(ParentNode, NodeName, AStr);
//...........

ShowMessage(PString(TreeView.Selected.Data)^);

//...........


//Не забудь потом освободить AStr
//...........
Dispose(TreeView.Selected.Data)



 
Jack128 ©   (2003-01-20 19:54) [4]

NodeGUID должна быть
1) Глобальной
2)
Между строкой
TreeView.Items.AddChildObject(ParentNode, NodeName,
Pointer(NodeGUID));

и строкой
ShowMessage(String(Pointer(TreeView.Selected.Data)));

к NodeGUID не должно ничего присваиваться

Иначе используй вариант Skier ©


 
3asys   (2003-01-23 12:44) [5]

Посмотрите, пожалуйста ветку
http://delphi.mastak.ru/cgi-bin/forum.pl?look=1&id=1043314689&n=0

С Уважением, 3asys



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

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

Наверх




Память: 0.47 MB
Время: 0.022 c
1-4980
Прога
2003-01-23 10:58
2003.02.03
Управление MathCAD


1-4879
Lomman
2003-01-24 22:20
2003.02.03
Run-TIme Button


4-5354
dmibar
2002-12-21 23:09
2003.02.03
не удается открыть файл


3-4718
dtm
2003-01-15 14:29
2003.02.03
Не видно выбранного значения в lookup-поле при выборе


14-5139
Le!
2003-01-10 08:36
2003.02.03
Люди посоветуйте!