Auf ein als "private" deklariertes Interface zugreifen

[finn91]

Hallo,

ich bräuchte mal eure Hilfe bei einem Problem ;-)

Ich habe eine Klasse "TClassOne" (nur zur Demonstration so genannt^^), die vereinfacht so aussieht:

Delphi-Quellcode:

TClassOne = class
private
  FInterface: IInterface;
  FObjects: array of TClassTwo;
public
  constructor Create;
  destructor Destroy; override;
  procedure Free;
  property Objects: array of TClassTwo read FObjects write SetObjects;
end;

Der Einfachheit halber habe ich nicht alle Prozeduren hingeschrieben (sind auch nicht weiter relevant).

Mein Problem ist jetzt folgendes: Ich möchte in einer Prozedur von "TClassTwo" auf das als "private" deklarierte Interface "FInterface" zugreifen. Der Nutzer soll allerdings kein Zugriff darauf haben (also nicht als "public" deklarieren). In einfachem Code ausgedrückt soll es also ungefähr so aussehen:

Delphi-Quellcode:

TClassTwo = class
public
  constructor Create;
  destructor Destroy; override;
  procedure Free;
  procedure DoSomething;
end;

// [...]

procedure TClassTwo.DoSomething;
begin
  FInterface.DoSomethingElse; // Methode von FInterface ausführen
end;

Wichtig ist dabei, dass die beiden Klassen in zwei verschiedenen Units sind (wegen der Übersicht).

Also nochmal in Kurzform: Wie kann ich aus "TClassTwo" auf das als "private" deklarierte Interface von "TClassTwo" zugreifen?

Ich hoffe, ich habe mein Problem halbwegs verständlich ausgedrückt. ;-) Falls nicht, fragt einfach.

Gruß,

Finn

[mkinzler]

Indem du die Eigenschaft wieder einführst (reintroduce)

[Apollonius]

Delphi kennt kein "friend" wie C++. Daher ist es unmöglich, nur einer bestimmte Klasse, die nicht von der Ursprungsklasse erbt und in einer anderen Unit deklariert ist, Zugriff auf das Feld zu erlauben.

[mkinzler]

Sorry, hatte nicht richtig ge´schaut und dachte, Klasse 2 wäre eine Ableitung von Klasse 1.

Zitat:

Delphi kennt kein "friend" wie C++.

Delphi erlaubt das dafür allen Klassen, die in der selben Unit deklariert wurden.

[finn91]

Erstmal vielen Dank für eure Antworten. :-)

Also lässt sich das Problem nur dadurch lösen, dass ich die beiden Klassen in die gleiche Unit packe?

Wenns nicht anderes geht, werde ich das natürlich so machen, allerdings wäre es natürlich toll, wenn die Möglichkeit besteht, die Klassen in zwei verschiedenen Units zu lassen.

Gruß,

Finn

[RWarnecke]

Leite doch die zweite Klasse von der ersten Klasse ab.

[mkinzler]

Oder verwende eine lokale Hilfsklasse in der 2. Unit:

Delphi-Quellcode:

implementation

TClassOneH = class( TClassOne)
private
   FInterface: IInterface; reintroduce;
end;

...

procedure TClassTwo.DoSomething;
begin
  (Klasse1 as TclassOneH).FInterface.DoSomethingElse; // Methode von FInterface ausführen
end;

[Apollonius]

Das geht aber so nicht, Markus. Erstens gibt es zu Feldern keine Direktiven. Zweitens darfst du gerade keinen as-Cast verwenden, da das Objekt ja nicht wirklich vo Typ TClassOneH ist. Funktionieren würde es so:

Delphi-Quellcode:

TClassOneH = class //nicht ableiten!
  FInterface: IInterface; //Deklaration kopieren
end; 

procedure TClassTwo.DoSomething;
begin
  TClassOneH(Klasse1).FInterface.DoSomethingElse;
end;