Eine ganz "brutale Methode ist {$INCLUDE ...}
Damit kann man einen Teil der
Unit direkt in eine andere Datei auslagern. (damit ist es sogar Möglich Teile, die sonst nicht auslagerbar sind, dennoch auszulagern)
Ich hab da ein Programm, mit einigen hundert Ereignisprozeduren, welche ja so nicht auslagerungsfähig sind - aber damit ging es dennoch und ich hatte auch etwas mehr übersicht.
Und da so der ausgelagerte Teil dennoch Teil der
Unit ist, gibt es auch keine Probleme mit Veriablen ...
Delphi-Quellcode:
// Unit1.pas
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 =
class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
{$INCLUDE UnitX.inc}
end.
Delphi-Quellcode:
// UnitX.inc
procedure TForm1.Button1Click(Sender: TObject);
begin
...
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
...
end;