syntax-error - 不同 Object Pascal 方言中的事件分配语法

Question

我正在开发一个应在 Delphi 和 C++Builder 之间共享的组件，因此我使用 Pascal 作为通用语言。因为我家里的电脑上没有Delphi，所以我首先在Lazarus IDE中创建了该组件。现在我把它“移植”到Delphi中，发现了一个惊人的语法问题:

这可以使用 FPC 进行编译(但不能使用 Delphi):

FSync.FSyncMethod := @SyncCheckInput;

这可以使用 Delphi 进行编译(但不能使用 FPC):

FSync.FSyncMethod := SyncCheckInput;

尽管存在语法差异，我如何在 Lazarus 和 Delphi 之间共享一个单元？

Answer 1

将其插入单元的开头:

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

这将指示 FreePascal 使用 Delphi 方言来编译该单元。 Delphi 将忽略 {$MODE DELPHI} directive因为 FPC 未定义。

然后您就可以使用这个

FSync.FSyncMethod := SyncCheckInput;

用于动态设置事件。