Форум: "Начинающим";
Текущий архив: 2006.03.12;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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;

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

---

← →
LordOfRock ©   (2006-02-22 19:45) [4]

clickmaker ©   (22.02.06 17:30) [3]

Пасиба.

---

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

Форум: "Начинающим";
Текущий архив: 2006.03.12;
Скачать: [xml.tar.bz2];

Наверх

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