Partielle Klassen

[himitsu]

Joar, die Lösungen:

- abgeleitete Klassen

Delphi-Quellcode:

// erste Unit
type
  TBaseClass = class
  public
    procedure InUnit1;
  end;

// zweite Unit
uses
  ersteUnit;

type
  TMainClass = class(TBaseClass);
  public
    procedure InUnit2;
  end;

- Class Helper

- Include-Dateien

Delphi-Quellcode:

// erste Unit
type
  TMyClass = class
  public
    procedure InUnit1;
    procedure InUnit2;
  end;

procedure TMyClass.InUnit1;
begin
end;

{$include zweiteUnit.inc}

// zweite Unit
procedure TMyClass.InUnit2;
begin
end;

oder

Delphi-Quellcode:

// erste Unit
type
  TMyClass = class
  public
    procedure InUnit1;
    {$define ZweiHeader}
    {$include zweiteUnit.inc}
  end;

procedure TMyClass.InUnit1;
begin
end;

{$include zweiteUnit.inc}

procedure InUnit2;

// zweite Unit
{$ifdef ZweiHeader}
  {$undef ZweiHeader}

  procedure InUnit2;

{$else}

  procedure TMyClass.InUnit2;
  begin
  end;

{$endif}