Verschachtelte Objekte

[Sadum]

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...)