Событие

← →
Term © (2006-11-07 16:24) [0]

пытаюсь создать событие

TOnSaveToFile=procedure(Sender:TObject;var FileName:string) of object; TRtfReport=class(TAbstractReport) private fOnSaveToFile:TOnSaveToFile; .................. public property OnSaveToFile:TOnSaveToFile read fOnSaveToFile write fOnSaveToFile; procedure Print(const PrinterName:string=""); override; ... end;далее в процедуре

procedure Print(const PrinterName:string="");есть вызов

if Assigned(fOnSaveToFile) then fOnSaveToFile(Self,FileName);

добавляю процедуру
procedure OnSavToFile(Sender:TObject;var FileName:string);

потом когда пытаюсь присвоить событию обработчик

TRtfReport(rpt).OnSaveToFile:=OnSavToFile;
получаю матюки при попытке компиляции
[Pascal Error] prn_func.pas(105): E2009 Incompatible types: "method pointer and regular procedure"

← →
Плохиш © (2006-11-07 16:27) [1]

> добавляю процедуру
> procedure OnSavToFile(Sender:TObject;var FileName:string);

Куда добавляешь? Она должна быть методом класса.

← →
Сергей М. © (2006-11-07 16:27) [2]

Попытайся понять, что значит эта "матюкальная" фраза

← →
MetalFan © (2006-11-07 17:04) [3]

> TOnSaveToFile=procedure(Sender:TObject;var FileName:string)
> of object;

напиши как

TOnSaveToFile=procedure(Sender:TObject;var FileName:string);

))

тогда наверное надо объявить так
TOnSaveToFile=procedure(var FileName:string);

> Term © (07.11.06 17:18) [4]
> тогда наверное надо объявить так

Вообще-то тебе, как создателю программы, должно быть виднее.

Событие Найти похожие ветки