Обработка Ongetvalue в консольном приложении
Есть консольное приложение, в нем процедура вывода отчета:
var fr: TfrReport;
procedure GetValue(const ParName: String; var ParValue: Variant);
begin
//...здесь идет код процедуры
end;
procedure OpenRep;
begin
fr := TfrReport.Create(Application);
//а теперь мне нужно сделать обработчик события
fr.OnGetValue := GetValue;
//но при таком раскладе не работает - выдает несовпадение типов
//В FR-ке это событие TDetailEvent = procedure(const ParName: String; var ParValue: Variant) of object;
//в чем моя ошибка???????????????????????????????????????????????
fr.LoadFromFile('Report.frf');
...
fr.Free;
end;