Klassenbeziehung herstellen?

[0xDEAD]

Zitat von lowF:

Eine Klassenbeziehung sollte zwischen Klassen herrschen, z.B. so:

Delphi-Quellcode:

 KlasseA = class(TObject);
 KlasseB = class(KlasseA);

Das würde ich jetzt eine Ableitung nennen.

In meinem Beispiel fehlt grad noch was:

Delphi-Quellcode:

TKlasseA = class(TObject)
  EineBeziehung: TKlasseB;

TKlasseB = class(TObject)


procedure Test;
begin
  InstanzA := TKlasseA.Create;
  InstanzB := TKlasseB.Create;
  InstanzA.EineBeziehung := InstanzB;
end;

Sinn und Zweck soll sein,
dass aus InstanzA eine Methode der KlasseB aufgerufen werden kann.