Delphi-Quellcode:
//nicht ausprobiert da ich eigentlich nichts erstellen wollte
{$IF not Declared(FPC_VERSION)}
const FPC_VERSION = 0;
{$IFEND}
// funktioniert nicht, der selbe fehler bei prüfung auf >= 3
{$IFDEF FPC}
{$IF Declared(FPC_VERSION)} <<<<<<<<<<<<<<<<<<<<<< Declared, nicht Defined
{$IF FPC_VERSION >= 3}
{$DEFINE UNICODE}
{$IFEND FPC_VERSION}
{$IFEND FPC_VERSION}
{$ENDIF FPC}
// funktioniert
{$IF Defined(FPC) and Declared(FPC_VERSION) and (FPC_VERSION >= 3)}
{$DEFINE UNICODE}
{$IFEND}
// funktioniert
{$IF Declared(FPC_VERSION) and (FPC_VERSION >= 3)}
{$DEFINE UNICODE}
{$IFEND}
ich bin halt davon ausgegangen das mein "IF FPC THEN" ausreicht um Delphi da auszugrenzen.
Vielen Dank an euch allen!!
getestet mit Turbo Delphi 2006, Delphi Rio und FPC 3.x