| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Обьединение классов! :)
TikTanik © (2005-08-23 14:22:00)Знатоки ООП! Помогите!
Написал класс (1), а теперь задумал их обьединить с другим классом (2).
Одним из свойств которого является ссылка на функцию (вернее сама функция).
Функция вызывается классом 2 в ответ на одно из его внутренних событий.
Необходимо перехватить это событие из 1 и обработать его своим методом!!!
Неполучается! Пишет:
[Error] Unit001.pas(150): Incompatible types: 'regular procedure and method pointer'
Что это значит???
логика примерно такая:
type
TFF = Function(a, b:integer) :integer;
TAaa = class(TObject)
FF: TFF;
end;
TBbb = class(TObject)
Aaa: TAaa;
Function Run(a, b:integer) :integer;
constructor Create;
end;
Procedure TAaa.Runer1;
begin
ShowMessage('Hello world!');
end;
constructor TBbb.Create;
begin
Aaa:= TAaa.Create;
Aaa.FF := Runer1; //вот здесь выдает ошибку!
end;
Джо (2005-08-23 14:24:00) [1]Только причем здесь какое-то "объединение"?
Джо (2005-08-23 14:23:00) [2]
TFF = Function(a, b:integer) :integer of object;
| |
