| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Свойство-контейнер в классах

Nichka ©   (2003-01-29 14:02:00) 

Уважаемые мастера, пожалуйста, помогите разобраться.
Я организовал два класса по следующей схеме:


type
TClass1 = class
...
end;

TClass2 = class
private
function Get (Index: integer): TClass1;
procedure Set (Index: integer; New: TClass1);
...
public
property Obj1 [Index: integer]: TClass1 read Get write Set;
...
end;

implementation

procedure Set (Index: integer; New: TClass1);
begin
Obj1[Index] := TClass1.Create; //<- Здесь
//оператор := опять вызывает процедуру Set
...
end;


Получается зацикливание. Подскажите, как же создать объект (присвоить ему уже созданную ссылку) или такое вообще не возможно в Delphi?

---

Nichka   (2003-01-29 18:12:00) [1]

Спасибо, но можно поподробнее?

---

Digitman   (2003-01-29 16:20:00) [2]


TClass2 = class
private
FList: TObjectList;
function Get (Index: integer): TClass1;
procedure Set (Index: integer; New: TClass1);
...
public
property Obj1 [Index: integer]: TClass1 read Get write Set;
...
end;

implementation

procedure Set (Index: integer; New: TClass1);
begin
FList[Index] := TClass1.Create; //<- Здесь
//оператор := опять вызывает процедуру Set
...
end;


---

Наверх