Cú pháp gán sự kiện trong các phương ngữ đối tượng Pascal khác nhau

Question

Tôi đang làm việc trên một thành phần cần được chia sẻ giữa Delphi và C++ Builder, vì vậy tôi đang sử dụng Pascal là lingua franca. Bởi vì tôi không có Delphi trên máy tính của tôi ở nhà, đầu tiên tôi đã tạo ra thành phần trong IDE Lazarus. Bây giờ tôi "chuyển" nó để Delphi và tìm thấy một vấn đề đáng kinh ngạc cú pháp:

này biên dịch với FPC (nhưng không Delphi):

FSync.FSyncMethod := @SyncCheckInput; 

này biên dịch với Delphi (nhưng không FPC):

FSync.FSyncMethod := SyncCheckInput; 

Làm thế nào tôi có thể chia sẻ một đơn vị giữa Lazarus và Delphi bất chấp sự phân kỳ cú pháp này?

Answer 1

Phụ trang này vào lúc bắt đầu của các đơn vị của bạn:

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

này sẽ hướng dẫn FreePascal sử dụng phương ngữ Delphi để biên dịch các đơn vị. Delphi sẽ bỏ qua {$MODE DELPHI} directive vì FPC không được xác định.

Sau đó bạn có thể sử dụng

FSync.FSyncMethod := SyncCheckInput; 

để thiết lập các sự kiện tự động.