Partielle Klassen

[bernau]

Tja. Bei mir ist es mal wieder soweit. Ich versuche mir den Sinn und Zweck von partial class vozustellen. Aber so richtig komme ich nicht dahinter.

Zitat von CalganX:

Delphi-Quellcode:

// erste Unit
type
  TPartClass = partial class
  public
    procedure InUnit1;
  end;

// zweite Unit
type
  TPartClass = partial class
  public
    procedure InUnit2;
  end;

Wenn ich eine Klasse in zwei Units aufteilen möchte, dann würde ich mir in der ersten Unit ein Basisklasse anlegen, und in der zweiten Unit eine abgeleitete Klasse. Damit habe ich in der zweiten Klasse Zugriff auf alle Proceduren.

Delphi-Quellcode:

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

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

Ich finde diese Definition viel eleganter.


Gebt mir Input. Was macht partial class so nützlich.


Gerd