Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2010.03.28;
Скачать: CL | DM;

Вниз

доступ к списку Tlist   Найти похожие ветки 

 
Anonim   (2010-01-25 15:25) [0]

Доброго времени суток. Опишу вкратце ситуацию:
Написал 3 класса

TClass1 = class
 public
   Name: string;
 end;

TClass2 = class
 public
   Name: string;
   ...
   Class1List: TList;
 end;

TClass3 = class
 public
   Name: string;
   ...
   Class2List: TList;
 end;


Далее делаю примерно так


var
 A: TClass1;
 B: TClass2;
 C: TClass3;
...

A:= TClass1.Create(...);
B:= TClass2.Create(...);
С:= TClass3.Create(...);
...
С.Class3List.Add(B);


а вот дальше у меня проблемы - как добавить в список Class2List экземпляр класса TClass1 (т.е. А)?


 
Сергей М. ©   (2010-01-25 15:37) [1]

C.Class2List.Add(A);


 
Anonim   (2010-01-25 15:53) [2]

не совсем так, мне надо что-то типа такого
c.class3list[i].class2list.add(A)


 
Сергей М. ©   (2010-01-25 15:55) [3]

> c.class3list[i]

У твоего клсса TClass3 нет свойства class3list


 
Anonim   (2010-01-25 16:08) [4]

упс ошибся
правильно так
c.class2list[i].class1list.add(A)


 
Сергей М. ©   (2010-01-25 16:11) [5]

TClass2(c.class2list[i]).class1list.add(A)


 
Anonim   (2010-01-25 16:16) [6]

благодарю.

тема закрыта


 
Игорь Шевченко ©   (2010-01-25 16:37) [7]

За такой код (и такие решения) надо убивать. Медленно и с наслаждением.

Либо надо приводить типы через As либо объявлять свойства, гарантированно возвращающие типизированные объекты.


 
Германн ©   (2010-01-26 02:17) [8]


> Игорь Шевченко ©   (25.01.10 16:37) [7]
>
> За такой код (и такие решения) надо убивать. Медленно и
> с наслаждением.

+1



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

Текущий архив: 2010.03.28;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.013 c
4-1227617004
dmitry_12_08_73
2008-11-25 15:43
2010.03.28
Определение самого верхнего окна в выделенной области экрана


1-1244994785
RWolf
2009-06-14 19:53
2010.03.28
D5: "step into" в код DLL


15-1263046404
Алекс555
2010-01-09 17:13
2010.03.28
Кто-то очень много ест .... памяти


15-1263112641
Nic
2010-01-10 11:37
2010.03.28
Соединение из Delphi MSSQL Server через RDP. Как?


15-1262726623
tmtlib
2010-01-06 00:23
2010.03.28
Компилятор в EXE на Delphi с исходниками.