Скачать: CL | DM;

Обьединение классов! :)   Найти похожие ветки 

← →
TikTanik   (2005-08-23 14:22) [0]

Знатоки ООП! Помогите!

Написал класс (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:23) [1]


 TFF = Function(a, b:integer) :integer of object;


---

← →
Джо ©   (2005-08-23 14:24) [2]

Только причем здесь какое-то "объединение"?

---

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

Скачать: CL | DM;



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