Komponenten variabel halten (unterschiedliche Editionen)

[Panthrax]

Beispielvorschlag:

Delphi-Quellcode:

unit StdComps; // Standard-Komponenten

interface

type
  TMyComp = class
    { ... }
  end;

implementation

{ ... }

end.

Delphi-Quellcode:

unit ExtComps; // erweiterte oder andere Komponenten

interface

uses
  StdComps;

type
  TMyComp = class(StdComps.TMyComp)
    { ... }
  end;

implementation

{ ... }

end.

Delphi-Quellcode:

{$Define StandardVersion}
{.$Define ExtendedVersion}
program Demo;

{$AppType Console}

uses
  {$IfDef StandardVersion}StdComps{$EndIf}
  {$IfDef ExtendedVersion}ExtComps{$EndIf};

{ ... }

var
  MyComp: TMyComp;

begin
  { ... }
end.