Sichtbarkeit von Typen (z.B. Klassen) aus der Unit heraus

[DeddyH]

Mit ein wenig Aufwand (Typecasting) geht aber auch das Angestrebte:

Delphi-Quellcode:

interface
type

    wichtigeKlasse = class
      private privateReferenz: TObject; //oder die Basisklasse von unwichtigeKlasse
      [...]
   end;

implementation
[...]
type unwichtigeKlasse = class
[...]
end; 

procedure wichtigeKlasse.MachWas;
var
  uk: unwichtigeKlasse;
begin
  uk := privateReferenz as unwichtigeKlasse;
  ...
end;