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.