Compilerschalter für Framework

[Uwe Raabe]

Du könntest vielleicht zwei solche Units wie die beiden Hybrid-Units aus meinem Beispiel nehmen und dort jeweils eine Konstante FrameWorkVCL bzw. FrameWorkFMX deklarieren. Dann kannst du beim Compilieren über {$IF Declared(FrameWorkXXX)} abfragen, was gerade eingebunden wurde.

Delphi-Quellcode:

unit VCL.Hybrids;

interface

const
  FrameWorkVCL = 1;

implementation

end.

Delphi-Quellcode:

unit FMX.Hybrids;

interface

const
  FrameWorkFMX = 2;

implementation

end.

Delphi-Quellcode:

uses
  Hybrids,
{$IF Declared(FrameWorkVCL)}
  Vcl.ExtCtrls;
{$ELSE}
{$IF Declared(FrameWorkFMX)}
  FMX.Types;
{$IFEND}
{$IFEND}


{$IF Declared(FrameWorkVCL)}
const
  FrameWork = FrameWorkVCL;
{$ELSE}
{$IF Declared(FrameWorkFMX)}
const
  FrameWork = FrameWorkFMX;
{$IFEND}
{$IFEND}

type
  TMyTimer = class(TTimer)

  end;