Partielle Klassen

[BenjaminH]

Zitat:

Zitat von Elvis

Du kannst also deine eigenen Erweiterungen in die Klasse packen ohne alles zu verlieren wenn der Code neu generiert werden muss.

Geht das nicht auch mit class helpern?

[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}