Форум программистов
 
О проблемах, например, с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

Вернуться   Форум программистов > Delphi > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Ответ
 
Опции темы
Старый 30.11.2007, 11:35   #1
Lim
Новичок
Джуниор
 
Регистрация: 29.11.2007
Сообщений: 2
По умолчанию Как получить адрес свойства объекта?

Поможите плз.
Хочу поставить каждой вершине TTreeView в соответствие Ноды .xml документа.
Вот процедура формирования дерева:

Код:
procedure TForm1.LoadItems(TreeNode: TTreeNode; Node: IXMLNode);
  var
    i: integer;
  begin
    TreeNode := XMLTree.Items.AddChild(TreeNode, Node.nodeName);
    TreeNode.Text := Node.NodeName;  
    for i := 0 to Node.childNodes.Count - 1 do
      LoadItems(TreeNode, Node.childNodes.Nodes[i]);
  end;
Реально ли в TreeNode.Data записывать указатель на соответствующий Node и если да, то как?
Lim вне форума Ответить с цитированием
Старый 30.11.2007, 11:57   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,840
По умолчанию

А чего нет?

TreeView1.Items[<такой то>].Data:=TreeNode;
Stilet вне форума Ответить с цитированием
Старый 30.11.2007, 12:44   #3
Lim
Новичок
Джуниор
 
Регистрация: 29.11.2007
Сообщений: 2
По умолчанию

Цитата:
Сообщение от Stilet Посмотреть сообщение
А чего нет?

TreeView1.Items[<такой то>].Data:=TreeNode;
Видимо я криво сформулировал.
TreeNode: TTreeNode - это узел TreeView1
Node: IXMLNode - узел IXMLDocument
У TreeView1.Items[<такой то>].Data тип поинтер.

Например:
TpNode = ^IXMLNode;
pNode : TpNode;

как в pNode занести адрес допустим Node.childNodes.Nodes[i] ?
Lim вне форума Ответить с цитированием
Старый 30.11.2007, 20:46   #4
mihali4
*
Старожил
 
Регистрация: 22.11.2006
Сообщений: 9,201
По умолчанию

Объявляем:
Код:
type
PMyRec = ^TMyRec;
TMyRec = record
  FName, MName: longint;
  LName: string;
  KName: boolean;
end;
Для вашего случая добавите MyNode: TTreeNode;
Используем:
Код:
...
New(MyRecPtr);
MyRecPtr^.FName:=TQuestId.Value;
MyRecPtr^.MName:=TQuestIdRazdel.Value;
MyRecPtr^.LName:='Quest';
MyRecPtr^.KName:=False;
Для вашего случая добавляем:
MyRecPtr^.MyNode:=Node.childNodes.N odes[i];
mihali4 вне форума Ответить с цитированием
Ответ

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Получить имя и свойства компонента... prizrak1390 Общие вопросы Delphi 3 08.04.2008 12:13
Свойства файла ruPy Общие вопросы Delphi 2 11.01.2008 20:37
Свойства объекта KBak Win Api 5 15.08.2007 20:21
как узнать ip адрес зная mac адрес Roman Работа с сетью в Delphi 9 25.06.2007 12:39
Показать свойства шолku Общие вопросы Delphi 2 28.12.2006 10:56


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS