Классы. Удаление "самого себя"

← →
LordOfRock © (2006-02-22 17:09) [0]

Привет, уважаемый DelphiMaster.Ru!

Есть у меня такие два класса:

TMyElement = class private public //Тут, допустим, много всяких полей, методов, свойств, конструктор, деструктор. Всё как надо end; TListOfMyElements = class //Здесь реализуется хранение списка экземпляров класса TMyElement private ListOfElements : TList; public //Здесь тоже реализация добавления/удаления элемента end;

Как мне в класс TMyElement добавить метод Delete так, чтобы он удалял сам экземпляр класса и заодно удалял его из списка ListOfElement класса TListOfMyElements. Так, как это реализованно в ListView, например.

← →
clickmaker © (2006-02-22 17:11) [1]

> Так, как это реализованно в ListView, например

ну и посмотри, как это реализовано. в Delphi\Source\Vcl

← →
LordOfRock © (2006-02-22 17:27) [2]

clickmaker © (22.02.06 17:11) [1]

Посмотрел. Там в private-секцию класса TMyElement пишется тот класс TListOfMyElements, который является списком для класса TMyElement. Попытался зделать также, но он ругается, что TListOfMyElements undeclared. Как бы мне объявить TListOfMyElements такжекак и с процедурами/функциями поступаю. forward низзя похоже ....

← →
clickmaker © (2006-02-22 17:30) [3]

TTListOfMyElements = class;

TMyElement = class
private
FList: TTListOfMyElements;

...

TTListOfMyElements = class // дальше реальная декларация
private

end;

вот и весь форвард

Классы. Удаление "самого себя" Найти похожие ветки