"übergeordnete" Klasse ermitteln

[Kroko1999]

Das würde ich so machen!

Delphi-Quellcode:

TAttribs = class
  //...
  procedure Load (AFileName: String); //hier brauch ich filename
end;

TFile = class
  private
    FFilename: String;
    FAttribs: TAttribs;
  public
  //~1.000.000 propertys und prozeduren  :)
    property Attribs: TAttribs read FATttribs;
end;