ListBox mit verknüpften StringLists sortieren

[DeddyH]

Vielleicht könnte man die Struktur so abbilden (Fehler vorbehalten):

Delphi-Quellcode:

type
  TInteresse = class
  private
    FDetailTyp: string;
    FDetail: string;
  public
    property DetailTyp: string read FDetailTyp write FDetailTyp;
    property Detail: string read FDetail write FDetail;
  end;
  
  TInteressenKategorie = class
  private
    FInteressen: TObjectList<TInteresse>;
    FTyp: string;
    function GetInteresse(Index: integer): TInteresse;
  public
    constructor Create;
    destructor Destroy; override;
    procedure AddInteresse(Value: TInteresse);
    procedure Sortiere;
    property Typ: string read FTyp write FTyp;
    property Interesse[Index: integer]: TInteresse read GetInteresse;
  end;
  
  TEintrag = class
  private
    FKategorien: TObjectList<TInteressenKategorie>;
    FTyp: string;
    FName: string;
    function GetKategorie(Index: integer): TInteressenKategorie;
  public
    constructor Create;
    destructor Destroy; override;
    procedure AddKategorie(Value: TInteressenKategorie);
    procedure Sortiere;
    property Typ: string read FTyp write FTyp;
    property Kategorie[Index: integer]: TInteressenKategorie read GetKategorie;
  end;
  
  TListe = TObjectList<TEintrag>;