verschiedene Klassen via Compiler directive erzeugen

[bernhard_LA]

habe mir jetzt eine separate unit angelegt und definiere eine Interface-Alias-KlassenNamen- Klasse, damit ist dann nur eine Stelle + eine Zeile {$define .... } im Code anzupassen wenn ich die Klasse tauschen will und auch nur eine Zeile code in den Units die meine Interface Klasse verwenden

Delphi-Quellcode:

unit Unit_TlicenseAlias;

interface

uses  ...... ;


{$define  encrypt_tiny}

{$IFDEF encrypt_full}
 Type  TLicenseIClass  =class( Tlicense);
{$ifend}

{$IFDEF encrypt_tiny}
  Type  TLicenseIClass  =class( TlicenseSimple);
{$ifend}

{$IFDEF encrypt_Mock}
  Type  TLicenseIClass  = class(TlicenseMock);
{$IFEND}


implementation

end.