IFOPT and MObjPFC & MDelphi [SOLVED]

[DelphiDinosaur]

I have code that's shared between projects, some compile with the Object Pascal (MObjFPC) syntax mode, other use the Delphi (MDelphi) syntax mode as they use older shared Delphi 6 code.

Is there a way of using $IFOPT to toggle code between the two syntax models?

I need this to toggle between event assignment methods:
e.g.

Code: Pascal  [Select][+][-]

1. AButton: TButton;
2. {$IFOPT MDelphi}
3. AButton.OnClick := MyOnClickHandler;
4. {$ELSE}
5. AButton.OnClick := @MyOnClickHandler;
6. {$ENDIF}
7.  

DD.

[AlexTP]

Answer from AI Mistral:

To check the syntax mode, you should use $IFDEF with the predefined symbols FPC and DELPHI, or more specifically, FPC_OBJFPC for Object Pascal mode and FPC_DELPHI for Delphi mode.

[DelphiDinosaur]

Thanks for the help. This works nicely:

Code: Pascal  [Select][+][-]

1. {$IFDEF FPC_OBJFPC}
2. AButton.OnClick := @MyOnClickHandler;
3. {$ELSE}
4. AButton.OnClick := MyOnClickHandler;
5. {$ENDIF}
6.  

I'd assumed it would work along the same lines as {IFOPT D+} for debug mode...

[Thaddy]

Better to reverse it:

Code: Pascal  [Select][+][-]

1. {$if defined(FPC_DELPHI) or defined(FPC_TP)}
2.   writeln('Mode delphi');
3. {$elseif defined(FPC_OBJFPC)}
4.   writeln('Mode ObjFpc');
5. {$elseif defined(FPC_FPC)}
6.   writeln('Mode FPC');
7. {$ifend}
8.  

That is because Delphi mode is the exception, Almost all other modes use the @. Explicit Pointer dereferences
(Except mode FPC_TP)