Ereigniszuweisungssyntax in verschiedenen Object Pascal-Dialekten

Question

Ich arbeite an einer Komponente, die zwischen Delphi und C++ Builder freigegeben werden soll, also verwende ich Pascal als lingua franca. Weil ich zu Hause Delphi nicht auf meinem Computer habe, habe ich zuerst die Komponente in der Lazarus IDE erstellt. Jetzt habe ich "portiert" es nach Delphi und fand eine erstaunliche Syntax Problem:

Dies kompiliert mit FPC (aber nicht Delphi):

FSync.FSyncMethod := @SyncCheckInput; 

Dies kompiliert mit Delphi (aber nicht FPC):

FSync.FSyncMethod := SyncCheckInput; 

Wie kann ich trotz dieser syntaktischen Divergenz eine Einheit zwischen Lazarus und Delphi teilen?

Answer 1

Legen Sie diese am Anfang Ihrer Einheiten:

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

Dies wird Freepascal anweisen, den Delphi-Dialekt zu verwenden, um das Gerät zu kompilieren. Delphi ignoriert die {$MODE DELPHI} directive, weil FPC nicht definiert ist.

Sie können dann mit diesen

FSync.FSyncMethod := SyncCheckInput; 

für Ereignisse dynamisch einstellen.