Verschiedene Teile eines Programms auf Units aufteilen?

[himitsu]

es besteht die Möglichkeit Teile eine Unit in eine andere Datei auszulagern und dann per Include wieder einzubinden

{$INCLUDE Da.tei}

Also die Daten in dieser externen Datei werden dann beim kompilieren direkt an die angegebene Stelle eingebunden und werden zum Teil der Unit. (also ist in dieser Datei alles vorhanden, was auch unter Unit vorhanden ist)

Dazu braucht einfach nur der Teil, welcher raus soll, in eine andere Datei kopiert zu werden.
In dieser (anderen) Datei darf aber sonst nichts stehen, nur der Code

Delphi-Quellcode:

{Unit1.pas}
Unit Unit1;

Interface
  Uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;

  Type TForm1 = Class(TForm)
      Procedure FormCreate(Sender: TObject);
      Procedure FormDestroy(Sender: TObject);
    Private
    Public
    End;

  Var Form1: TForm1;

Implementation
  {$R *.dfm}

  Procedure TForm1.FormCreate(Sender: TObject);
    Begin
      ...
    End;

  Procedure TForm1.FormDestroy(Sender: TObject);
    Begin
      ...
    End;

End.

************************************************** *******************************************

Delphi-Quellcode:

{Unit1.pas}
Unit Unit1;

Interface
  Uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;

  Type TForm1 = Class(TForm)
      Procedure FormCreate(Sender: TObject);
      Procedure FormDestroy(Sender: TObject);
    Private
    Public
    End;

  Var Form1: TForm1;

Implementation
  {$R *.dfm}

  {$INCLUDE Unit2.inc}

  Procedure TForm1.FormDestroy(Sender: TObject);
    Begin
      ...
    End;

End.

Delphi-Quellcode:

{Unit2.inc - ich nenn' die aber gern auch .pas .. macht das öffnen mit Delphi enfacher ^^}
  Procedure TForm1.FormCreate(Sender: TObject);
    Begin
      ...
    End;