Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2005.07.11;
Скачать: [xml.tar.bz2];

Вниз

Про TreeView   Найти похожие ветки 

 
<Lelik>   (2005-06-21 18:08) [0]

Здраствуйте, программеры!
Вот такой наверно простой вопрос.
Есть список TStrings SList1 с объектами.
Затем создается TreeView TView1, содержащий значение некоторого поля списка SList1 и ссылку на сам объект SList1
Спискок SList1 формируется как
type
PObj = ^Obj
Tobj = class
id : integer;
...
des: string
end;
obj1 : TObj
SList1.AddObject("", obj1)

Формирование TView1:
child := Items.AddChildObject(nil, TObj(Slist.Objects[i]).Des, SList.Objects[i]);
child : TTreeNode;

затем пытаюсь получить доступ
k : integer;
k := PObj(child.Data)^.id
Ошибка!
Подскажите пожалуйста, что не так.


 
-=XP=- ©   (2005-06-21 18:18) [1]

Что это такое: PObj = ^Obj
В Delphi все объектные переменные - суть ссылки.
k := TObj(child.Data).id;

P.S. Давайте переменным, методам и пр. вразумительные имена.


 
<Lelik>   (2005-06-21 18:21) [2]

Спасибо!



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

Форум: "Основная";
Текущий архив: 2005.07.11;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.036 c
14-1118673261
ms1
2005-06-13 18:34
2005.07.11
Moи oтnyck нa Kyбe.


1-1118909367
Elena_
2005-06-16 12:09
2005.07.11
Помогите скопировать Image


6-1112614864
Muh
2005-04-04 15:41
2005.07.11
Какого ... закрыли мои сообщения??


9-1112043044
Yegorchic
2005-03-29 00:50
2005.07.11
Вывод текста в GLScene


3-1117630917
Orel
2005-06-01 17:01
2005.07.11
таблицу (TTable) базы данных отправить в MS WORD





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский