ООП в Делфи

[Phong]

Я только осваиваю ООП в Делфи, вот столкнулся с одной проблемой и прошу гуру программирования дать совет. Пытаюсь в классе реализовать Callback-функцию. Приведу часть кода одного моего модуля:

TeGetValue = function (AVal : string) : string of object;
...
TeCalc = class
 private
  FGetValue : TeGetValue;
 public
  property eGetValue : TeGetValue read FGetValue write FGetValue;
  ...
 end;
...

function vFValue (AVal: string) : String;
begin
 if Aval = 'x' then Result := '1';
end;

eCalc := TeCalc.Create;
eCalc.eGetValue := vFValue;

Ошибка несовпадения типов String и TeGetValue. Подскажите как исправить это?

[Аватар]

Тип TeGetValue - объектный метод (of object)
vFValue - не объектный метод

[Stilet]

как исправить это?

Дополню: Нужно описать function vFValue как метод класса, а не просто функцию.
of object говорит что этому типу обязан соответствовать метод. Функция описанная в private, public и т.д. секциях класса.

Только насколько я понял из твоего кода, он будет уже принадлежать другому классу.

[Phong]

Всем спасибо за внимание! Тема закрыта.