Хочется странного... сделать автосоздание объектов-членов

[NTFS]

Хочется как-то реализовать возможность автоматического создания объектов в классе.

Например, есть класс

Код: Выделить всё

TMyClass1 = class
   List:TStringList ;
   C2:TMyClass2 ;
end ;

Нужно, чтобы после вызова:

Код: Выделить всё

  MC1 := TMyClass1.Create ;

объекты MC1.List и MC1.C2 уже содержали созданные экземпляры соответствующих классов.

Есть мысли, как это сделать правильно?

Дополнительно, было бы классно, чтобы они и удалялись после вызова MC1.Free

[carrots]

переобявить оператор присвоения.

Код: Выделить всё

Operator := (r : TMyClass1) z : TMyClass1;
begin
  z := r;
  if not assigned(z.list) then z.list := tstringlist.create;
  if not assigned(z.C2) then z.C2 := TMyClass2.create;
end;


Также можно сделать чтоб работало вообще для всех классов не являющихся персистентом, тогда нужно переобявлять оператор присвоения для TObject и проверять после присвоения не является ли он TPersistent, затем найти в нем все TPersistent и создать их тем классом которым они являются (количество пропертей узнать можно, а вот переменных не знаю).

С освобождением(если не добавлять в клас destroy) можно поступить разными методами:
1. При создании объектов записывать их в какой-то список и освобождать на finalization.
2. Создать процедуру освобождения

Код: Выделить всё

Free(MC1)

которая будет искать все чилды и освобождать(если переменные найти не получится - их можно будет сразу где-то записать).


как альтернатива - можно написать препроцессор который будет добавлять в классы конструктор и дестрой.

[minoshi]

не то ?

Код: Выделить всё

unit alsmplayer;
...

type tmplayer = class
private 
  ftimer   : ttimer;   //таймер
  fterm    : tterminal;  //терминал
  ....
public
  constructor create(const aowner: tobject = nil);
  ...
end;

implementation

constructor tmplayer.create(const aowner: tobject);
begin
fterm := tterminal.create(nil);
ftimer := ttimer.create(nil);
end;
....
end.

[carrots]

я так понял он не хочет constructor и destructor вписывать

[Max Rusov]

Можно сделать через RTTI, правда тогда придется объявить для полей published свойства. В конструкторе базового класса перебирать все published свойства и для объектных - создавать экземпляр. Ну и в деструкторе так-же.

[kipar]

У RTTI есть ограничения - например массив автосоздающихся объектов таким образом не получится сделать.

[svk12]

я так понял он не хочет constructor и destructor вписывать

Мне тоже так показалось.
Интересно, что плохого в перекрытии Create и Destroy с созданием/освобождением классов-полей?

[carrots]

я так понял он не хочет constructor и destructor вписывать

Мне тоже так показалось.
Интересно, что плохого в перекрытии Create и Destroy с созданием/освобождением классов-полей?

Для удобства, чтоб лишние методы не описывать.

[Brainenjii]

Парсер и генератор кода надо, ИМХО...