Скачать: CL | DM;

$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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.031 c