Brauche Hilfe bei Strucktur Definition

[schwa226]

Hallo,

ich habe eine Server/client Netzstruktur.
Nun habe ich einen Server auf den ich mich verbinde. Dieser Server verbindet sich dann auch zu anderen Servern.

Also Daten so ungefär:
RootServer : MAC,...
ServerVerbindungnen (zu welchen der RootServer verbunden ist) : Array oder besser TObjectlist

Delphi-Quellcode:

Type
TListServerStrucktur = class(TObjectList)
  protected
    function getItem(Index: Integer): TServerStrucktur; virtual;
    procedure setItem(Index: Integer; Objekt: TServerStrucktur); virtual;
  end;

Type
  TServerStrucktur = class
    RootData : TServerData;
    ServerConnections: TListServerStrucktur;
  end;

Jetzt meckert der Compiler natürlich, dass bei getItem die TServerStrucktur nicht bekannt ist.

Mit einem Record ging es ja so:

Delphi-Quellcode:

Type
  TServerStrucktur = record
    RootData : TServerData;
    ServerConnections: Array of TServerStrucktur;
  end;

Ich möchte gerne so eine abgeleitete TObjectList haben um mir das Casten der Items zu ersparen.
Geht so eine Baumstruktur irgendwie?

[DeddyH]

Delphi-Quellcode:

Type
  //Forward-Deklaration einfügen
  TServerStrucktur = class;

  TListServerStrucktur = class(TObjectList)
  protected
    function getItem(Index: Integer): TServerStrucktur; virtual;
    procedure setItem(Index: Integer; Objekt: TServerStrucktur); virtual;
  end;

  TServerStrucktur = class
    RootData : TServerData;
    ServerConnections: TListServerStrucktur;
  end;

[schwa226]

Danke!

Habe mir nicht gedacht, dass das so einfach geht :oops:

[DeddyH]

Manches ist halt einfacher, als man denkt :zwinker: