Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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
1-1090386273
lightix
2004-07-21 09:04
2004.08.01
Переопределение клавиши TAB


1-1090247890
Booch
2004-07-19 18:38
2004.08.01
ComboBox, выпадающий при нажатии на Button? КАК?


1-1090083525
RedLord
2004-07-17 20:58
2004.08.01
рантайм идентификация компонента


3-1089195030
sniknik
2004-07-07 14:10
2004.08.01
Не запускается сервис базы (оракле)


6-1086176513
osama
2004-06-02 15:41
2004.08.01
Памажите сделать сервер средствами АПИ





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский