Verwenden von Units - Porgammierstil

[BrunoT]

Hi DPler,

Ich möchte Teile einer Unit in eine andere auslagern, um Übersichtlichkeit zu waren. (kein Codefolding in D7)

Beispiel:

in Form1:

Delphi-Quellcode:

procedure THauptform.Drucken1Click(Sender: TObject);
begin
  ...
  //viel Code
  ...
end;

Das Problem ist, dass ich Methoden von Objekten der Form auslagern will oder Eigenschaften von Objekten verändern möchte:

Delphi-Quellcode:

procedure THauptform.FormResize(Sender: TObject);
var
  i: Byte;
begin
  HauptBoxpanel.Width := clientwidth - 158;
  HauptBox.Width:=HauptBoxpanel.Width-4;
  Toolpage.Height:=0;
  Hauptboxpanel1.Height:=ClientHeight-50;
  Hinweisbutton.Caption:='Hinweise';
  Hinweisbutton.Left:=Trunc(HauptBox.Width/2)-Trunc(Hinweisbutton.Width/2);
  FormularTabPanel.Align := alNone;
  FormularTabPanel.width := 158;
  FormularTabPanel.Left := clientwidth - 158;
  FormularTabPanel.Height:=Clientheight-JvToolBar1.height-statusbar.height;
  FormularTab.Height := FormularTabPanel.Height - 43;
  DGFormulare.ColWidths[0] := 10;
  DGFormulare.ColWidths[1] := DGFormulare.Width - 8;
  JahrZurueck.Left := FormularTabPanel.Width - 18;
  for i := 1 to 4 do
    JahrButton[i].Left := 18 + 30 * (i - 1);
end;

ich habe die Methoden und Ereignisse, welche ich nicht mehr ändern möchte, nun erst
einmal in eine Include- Datei ausgelagert, aber das erscheint mir nicht sonderlich elegant.

eventuell gibts da einen Tip.

mfg

BrunoT

[SirThornberry]

wenn du die Methoden alphabetich geordnet hast und den Codeexplorer nutzt ist das ganze auch in Delphi7 übersitlich. Durch das auslagern in andere Units wird meiner Meinung nach das ganze erst unübersichtlich weil man nicht weiß ob die Methode in der Hauptunit ist oder in der ausgelagerten. Vielleicht musst du auch nur Objectorientierter arbeiten so das einige Methoden eventuell einem neuen Object zugeordnet werden können welches man dann in einer Extra Unit declariert.