Переопределение в run-time метода для события

[VAshot]

Вот не получается такая конструкция:

Код: Выделить всё

DatasourceServiceTest.OnDataChange:=DatasourceServiceTestDataChange;


ругается на несоответствие параметров.
Что не так делаю?

Везде в примерах по делфи следующее:

Код: Выделить всё

procedure TForm1.FormCreate(Sender: TObject);
begin
button1.OnClick := Click;
end;


[Alexx2000]

Попробуйте так:

Код: Выделить всё

DatasourceServiceTest.OnDataChange:=@DatasourceServiceTestDataChange;


[ViTality]

скорей всего нужно так

Код: Выделить всё

DatasourceServiceTest.OnDataChange:=@DatasourceServiceTestDataChange;


[VAshot]

Спасибо. Это особенность FPC такая?

[alexs]

Да, и это более логично, чем сделано в дельфине
там глядя на конструкция сразу нельзя скзать, что это - присваивание оператороной переменной адреса функции или присваивание переменно значения исполнения функции.
Но в режиме совместимости с дельфином FPC разрешает присваивание без @.

[Bupyc]

Добавлю и от себя 5 копеек

Столкнулся с этой фишкой, когда переводил разработку с дельфей на freepascal. У меня в программе очень активно используется механизм потокового чтения/записи экземпляров классов, наследованных от TComponent. Для того, что бы код компилился и во фрипаскале и в дельфе, пришлось в методах DefineProperties писать примерно следующее:

Код: Выделить всё

Filer.DefineBinaryProperty('Description',
                               {$IFDEF FPC}@{$ENDIF}ReadDescription,
                               {$IFDEF FPC}@{$ENDIF}WriteDescription,
                               fDescList.Count > 0);


[v-t-l]

Добавлю и от себя 5 копеек

Столкнулся с этой фишкой, когда переводил разработку с дельфей на freepascal. У меня в программе очень активно используется механизм потокового чтения/записи экземпляров классов, наследованных от TComponent. Для того, что бы код компилился и во фрипаскале и в дельфе, пришлось в методах DefineProperties писать примерно следующее:

Код: Выделить всё

Filer.DefineBinaryProperty('Description',
                               {$IFDEF FPC}@{$ENDIF}ReadDescription,
                               {$IFDEF FPC}@{$ENDIF}WriteDescription,
                               fDescList.Count > 0);


Проще было бы один раз написать

Код: Выделить всё

{$IFDEF FPC}
{$MODE DELPHI}
{$ENDIF}