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.

[uligerhardt]

Zitat von 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

Das "class" kannst du dir ggfs. noch sparen:
type TLicenseIClass = TLicense; geht auch.

[bepe]

Zitat von uligerhardt:

Das "class" kannst du dir ggfs. noch sparen:
type TLicenseIClass = TLicense; geht auch.

Im aktuellen Fall sicher ok, vermutlich sogar gewünscht. Generell sollte man, für Mitleser, aber erwähnen dass man ohne Class nur einen Alias definiert.

Delphi-Quellcode:

type TLicenseIClass = TLicense;  // ob man später TLicenseIClass oder TLicense verwendet macht keinerlei Unterschied (TLicenseIClass = TLicense: True)
type TLicenseIClass = class(TLicense);  // hier ist TLicenseIClass eine eigenständige Klasse, welche von TLicense erbt (TLicenseIClass = TLicense: False)