Hallo zusammen,

ich suche eine Möglichkleit wie ich in einer Klassenstruktur auf ein beliebiges Parent-Object zugreifen kann.

Ich habe beispielhaft folgende Klassenstruktur

zusammenfalten · markieren

Delphi-Quellcode:

  TBase = class
  private
    FNr: Integer;
    FParentObject: TObject;
  public
    property Nr: Integer read FNr write FNr;
    property ParentObject: TObject read FParentObject write FParentObject;
  end;
  
  TMessData1 = class(TBase)
  private
    FMessdata1: Real;
  public
    property FMessdata1: Realread FMessdata1 write FMessdata1;
  end;

  TMessData1List = class(TObjectList<TMessData1>)
  private
    FParentObject: TObject;
  public
    property ParentObject: TObject read FParentObject write FParentObject;
  end;

  TMessData2 = class(TBase)
  private
    FMessdata2: Real;
    FMessDataList1: TMessData1List;
  public
    property FMessdata2: Realread FMessdata2 write FMessdata2;
  end;

  TMessData2List = class(TObjectList<TMessData2>)
  private
    FParentObject: TObject;
  public
    property ParentObject: TObject read FParentObject write FParentObject;
  end;

  TGeraet = class(TBase)
  private
    FBezeichnung: String;
    FMessDataList2: TMessData2List;
  public
    property Bezeichnung: Realread FBezeichnung write FBezeichnung;
  end;

Die Struktur sieht also so aus

markieren

Code:

TGeraet
    - TMessDataList2
        - MessData2_1
            - TMessDataList1
                - MessData1_1
                - MessData1_2
                - MessData1_n
        - MessData2.2
            - TMessDataList1
                - MessData1_11
                - MessData1_12
                - MessData1_1n
        - MessData2.n
            - TMessDataList1
                - MessData1_21
                - MessData1_22
                - MessData1_2n

Da in allen Elementen die Eigenschaft ParentObject vorhanden ist, ist es grundsätzlich kein Problem z.B. aus MessData1_2n über
Geraet = TMessDataList2(TMessData2(TMessDataList1(ParentObject).ParentObject).ParentObject

oder über die Basisklasse
Geraet = TMessDataList2(TBase(TMessDataList1(ParentObject).ParentObject).ParentObject
Ich suche aber eine Möglichkeit, wo ich die Struktur nicht kennen muss sondern über eine Schleife so lang über ParentObject nach oben klettere bis ich die Klasse TGeraet erreicht habe. Ohne die Listen dazwischen würde es über die Basisklasse TBase gehen. Wie aber komme ich in der TObjectList weiter hoch?

Ich hoffe ich habe mich verständlich ausgedrückt. Hintergrund ist, dass die Klassenstruktur etwas komplexer ist. Z.B. könnte das Konstrukt TMessDataList1 auch direkt in TGeraet hängen.

Vielen Dank
Gerd

PS: Die Idee, in ParentObject nicht die Liste sondern die darüber liegende Klasse anzugeben, nutzt nichts. Es könnte auch sein, dass ich nicht TGeraet sondern TMessData2List suche.
-

Du solltest Deine Listen auch von TBase ableiten und die eigentliche Liste dort nur intern benutzen.
TBaseList wäre dann ein Wrapper um eine normale Liste.

Hallo Stahli,

daran habe ich auch schon gedacht. Wie kann ich dann aber beim Hochblättern feststellen ob ich in TMessData1List oder TMessData2List bin. Typabfrage funktioniert dann ja nicht mehr. Oder funktioniert ein Konstrukt wie

zusammenfalten · markieren

Delphi-Quellcode:

TBaseList = class(TObjectList<TBase>)
  privat
    FParentObject: TObject;
  public
    property ParentObject: TObject read FParentObject write FParentObject;
  end;

TMessData1List = class(TBaseList)
  privat
  public
  end;

Benutz Interfaces

Zitat von hoika:

Benutz Interfaces

Mit denen habe ich mich noch nie abgegeben. Könntest du anzeigen, wie das geht. Meine Bedenken sind bei so was, dass es zuerst ganz einfach aussieht und man dann feststellt, dass man vieles beachten muss, was man noch nicht weiß. Ich bin ziemlich unter Zeitdruck

Interfaces bringen jetzt an der Stelle nicht wirklich viel.

Ich würde auch grundsätzlich zu Interfaces raten, aber man muss sich erst damit befassen. Die Klassen muss man dann aber auch differenziert ausgestalten.

Ich würde es so machen:

zusammenfalten · markieren

Delphi-Quellcode:

  TBase = class
   private
     FNr: Integer;
     FParentObject: TObject;
   public
     property Nr: Integer read FNr write FNr;
     property ParentObject: TObject read FParentObject write FParentObject;
   end;
   
   TMessData1List = class(TBase)
   private
     fItems: (TObjectList<TMessData1>);
     function get_Item(const Index: Integer): TMessData1;
     procedure set_Item(const Index: Integer; Value: TMessData1);
   public
     procedure Add(Item: TMessData1);
     procedure Delete(Item: TMessData1); overload;
     procedure Delete(Index: Integer); overload; // alle Methoden, die für die Liste gebraucht werden
   protected
   public
     property Items[const Index: Integer]: TMessData1 read get_Item write set_Item; // weiß nicht, ob die Syntax so richtig ist
   end;

Zitat von norwegen60:

zusammenfalten · markieren

Delphi-Quellcode:

TBaseList = class(TObjectList<TBase>)
  privat
    FParentObject: TObject;
  public
    property ParentObject: TObject read FParentObject write FParentObject;
  end;

TMessData1List = class(TBaseList)
  privat
  public
  end;

Auch dieses Konstrukt hat einen großen Nachteil. Was vorher so aussah

markieren

Delphi-Quellcode:

var
  lBaseSample: TBaseSample;
begin
  Result := false;
  for lBaseSample in FSamplingList do
    if (lBaseSample.StatusSample <> assFilled) and (lBaseSample.StatusSample <> assProcessed) then
      exit;
  Result := true;
end;

sieht jetzt so aus:

zusammenfalten · markieren

Delphi-Quellcode:

var
  i: Integer;
  lBaseSample: TBaseSample;

begin
  Result := true;
  for i := 0 to Pred(FSamplingList.count) do
  begin
    lBaseSample := TBaseSample(FSamplingList[i]);
    if (lBaseSample.StatusSample <> assFilled) and (lBaseSample.StatusSample <> assProcessed) then
      exit;
  end;
  Result := true;
end;

Was mich am meisten daran stört ist dass ich jetzt überall ein Typwandlung lBaseSample := TBaseSample(FSamplingList[i]); statt lBaseSample := FSamplingList[i]; machen muss.

Jetzt wäre ich doch froh, wenn mir noch mal einer einen Tipp geben könnte

Grüße
Gerd