Форум: "Основная";
Текущий архив: 2004.08.01;
Скачать: [xml.tar.bz2];
Вниз$00000000 Найти похожие ветки
← →
alice (2004-07-17 20:25) [0]Мастера приветсвую! Есть такая структура: некоторый объект, который ссылается на другой объект ( поле parent), тот в свою очередь может ссылаться на свой parent. Причем последний в иерархии parent = $00000000 (это если посомтреть в отладчике)
Мне нужно раскрутить эту цепочку до самого верха. Впорос в том, что не понятно, когда останавливаться? Сравнение с null не помогает, varisnull тоже.
(А parent этот имеет тип интерфейс)
Поскажите пожалуйста, если кто-то знает?
← →
OSokin (2004-07-17 20:30) [1]Попробуй nil.
← →
alice © (2004-07-17 20:36) [2]Так не выходит.
Если сравнениваю с nil напрямую, получается несовместимость типов. Пробовала приводить к IUnknown получается всегда равно nil.
← →
Черный дембель (2004-07-17 21:59) [3]Может Assigned
← →
TUser © (2004-07-18 07:21) [4]
procedure TForm1.Button1Click(Sender: TObject);
var c:TControl;
begin
c:=Button1;
repeat
Memo1.Lines.Add(IntToStr(integer(c))+" "+c.Name);
c:=c.Parent;
until c = nil;
end;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2004.08.01;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.031 c