Gemeinsame Uses Klausel in allen Units

[Elvis]

Zitat von berens:

Gibt es also eine Möglichkeit, wie z.B. bei PHP (war das Include?) einfach an diese Stelle der Unit eine andere Datei hineinzuladen, wo z.B. alle Uses drinstehen?

Die Idee ist IMHO ziemlich krank.
Die einzige n 2 Stellen in denen includes sinn machen sind Stellen, die ein Defizit im Compiler selbst auszugleichen versuchen:

1. Compiler versionsprüfungen
   der Präprozessor kann (zumindest in D7) keine Ausdrücke á la {$ifdef compilerversion < 170}
2. Pseudo templates

Ich simuliere in native Delphi namespaces indem ich in einer Unit Aliases auf die Typen in den anderen Units aufliste. Auf die Art hat man seine Typen immer noch schön in einzelnen Units, aber braucht nur einen "Namespace" einzubinden um alle Typen benutzen zu können.
Bleistift (habe die Leerzeilen entfernt ):

Delphi-Quellcode:

unit uClass1;
interface
type
  Class1 = class
  end;

Delphi-Quellcode:

unit uClass2;
interface
type
  Class2 = class
  end;

Delphi-Quellcode:

unit MyClasses;
interface
uses
  uClass1,
  uClass2;
type
  Class1 = uClass1.Class1;
  Class2 = uClass2.Class2;

Delphi-Quellcode:

unit Babla;
interface
uses
  MyClasses;
type
  Class3 = class(Class2)
  end;