Автоматическое создание вложенных класов

[slavon-x86]

 TFLoad = class
Folder, Name: string;
Content: TMemoryStream;
Load: integer;
end;

var
FLoad: TFLoad;

Как сделать чтобы при создании классы FLoad := TFLoad.Create автоматически создавался вложенный класс TFLoad.Content.Create ? И при разрушении FLoad.Free автоматически разрушался TFLoad.Content.Free ?

 

[slavon-x86]

Слышал, но я не знаю как правильно его использовать ! Как ни пытался - неполучается !

 

[slavon-x86]

Поможете примером ?

 

[slavon-x86]

Я не настолько разбираюсь в английском чтобы понять !
Я нашёл через наследование ! Но что делать если таких (Content: TMemoryStream переменных несколько ?
Обычно я пользуюсть поисковиками, но этого примера найти не смог !

 

[slavon-x86]

Млин... ну неужели так сложно код написать ?
Если бы я знал как это сделать или мог сам разобраться, то меня бы здесь небыло !
В книге есть описание конструкторов и деструкторов, но изложенной там информации мне не хватает для решения проблемы !

 

[slavon-x86]

Этот код я видел, но я не могу понять его!

Я пытался делать, но всегда куча ошибок и вот одна из них:

 TFLoad = class
Path: string;
Load: integer;
Data: TMemoryStream;
public
constructor Create; override;
destructor Destroy; override;
end;



[Error] Loading.pas(19): E2170 Cannot override a non-virtual method

 

[slavon-x86]

А понятно, вам надо сначало подучиться.

Собственно это я и пытаюсь сделать !
Я наверное просто не правильно понимаю написанное в книге, вот поэтому и прошу написать пример !

 

[slavon-x86]

Вам же надо изначально изучить основы ООП, что такое тип, класс, объект, наследование, полиморфизм, инкапсуляция, абстрактные и виртуальные методы и т.д и т.п. Это все не сложно, но без этого ни куда, это фундамент, а без фундамента. как понимаете, ничего не будет.

А ссылочку на учебник\статью дадите ?

 

[astronom]

А ссылочку на учебник\статью дадите ?

Ссылка скрыта от гостей

Ссылка скрыта от гостей