VPF::Как возвратить класс по его полю?

Ellochka

Дата 2.12.2007, 14:40 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 9
Регистрация: 10.11.2007

Репутация: нет
Всего: нет

У меня есть класс TMain, полем которого является коллекция smile

Соответсвенно описана и сама коллекция  -  класс TCol -
                                и элементы коллекции  -  класс TColItem.

Разумеется входе конструирования экземпляров классов определено,
что свойство Collection, которое отправляет от экземпляра класса  TColItem
к его владельцу  - экцепляру класса TCol.

Код


TMain = class (TComponent)
  public
  Collect: TCol;
  field: byte;
end;


TCol = class(TCollection)
  public
  --------something------
end;

TColItem = class(TCollectionItem)
  public
  --------something------
  procedure METHOD;
end;

И ВОТ В ЧЕМ ПРОБЛЕМА:

Мне надо в некотором методе METHOD класса TColItem выйти на левое поле field

класса TMain! На сколько я понимю, это можно сделать примерно так

Код


procedure TColItem.METHOD;
begin
  (Collection.<МЕТОД, ВОЗВРАЩАЮЩИЙ КЛАСС TMain, В КОТОРОМ ОПИСАНА ЭТА КОЛЛЕКЦИЯ Collection>).FIELD := SomeValue;
end;

Подскажите, пожалуйста, что это за функция, которая может возвратить мне TMain!!!!

WaReZMEN

Дата 3.12.2007, 04:47 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 683
Регистрация: 9.6.2006
Где: Россия, Санкт-Пет ербург

Репутация: нет
Всего: 3

подробнее можно? (структуру классов)

MetalFan

Дата 3.12.2007, 09:19 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 22
Всего: 128

ну так сохрани ссылку на нужный класс... в чем проблема то?

--------------------

There are always someone smarter than you...

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »