Thema: Delphi Partielle Klassen

Einzelnen Beitrag anzeigen

Benutzerbild von bernau
bernau

Registriert seit: 1. Dez 2004
Ort: Köln
1.294 Beiträge
 
Delphi 12 Athens
 
#8

Re: Partielle Klassen

  Alt 14. Mai 2007, 23:27
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
Gerd
Kölner Delphi Usergroup: http://wiki.delphitreff.de
  Mit Zitat antworten Zitat