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

Свойство-контейнер в классах   Найти похожие ветки 

← →
Nichka   (2003-01-29 14:02) [0]

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


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?

---

← →
Digitman ©   (2003-01-29 16:20) [1]


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;


---

← →
Nichka   (2003-01-29 18:12) [2]

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

---

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

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



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