ListBox mit verknüpften StringLists sortieren

[Bjoerk]

Die Struktur ist mir nicht klar. Meinst du so ?

Delphi-Quellcode:

type
  TItem = class(TObject)
    Typ: string;
    List1: TStringlist;
    SubList1: array of TStringlist;
    List2: TStringlist;
    SubList2: array of TStringlist;
  end;
  TItemList = array of TItem;