Die Vorwärtsdeklaration führte bei mir nur zu abstürzen bei Zugriffen auf die Objekte, aber ich habe das ganze jetzt mit Properties gelöst. So kann ich wenigstens auf Variablen übergeordneter Obejekte zugreifen.
Delphi-Quellcode:
type
Tjeep = class
protected
geschwindigkeit : integer;
public
procedure fahren;
end;
type
Tpkw = class
protected
temp : integer;
procedure writespeed (speed : integer);
public
jeep : Tjeep;
property geschwindigkeit : integer read temp write writespeed;
end;
implementation
procedure Tpkw.writespeed (speed : integer);
begin
temp := speed;
jeep.geschwindigkeit := temp;
end;
procedure Tjeep.fahren;
begin
showmessage ('Jeep fährt '+inttostr(geschwindigkeit));
end;
Allerdings bin ich damit meinen eigentlichen Ziel, einen Ersatz für TWebbrowser Anweisungen zu schreiben nicht wirklich näher gekommen, da ich nicht weiß ob man Objekten so wie Prozeduren Argumente übergeben kann.
*Twebbrowser besteht allerdings trotz der "WebBrowser1.OleObject.document.frames.item(0).doc ument.links.item(0).click;" Struktur auch nicht aus verschachtelten Objekten, sondern ist ein Variant (wie auch immer dieser dann konkret aufgebaut ist...)