Sortieren eines "Objektes"

[Zerolith]

Hallo!

ich hab eine etwas komplexe Struktur

Als Erstes einen Record

der einen String "Name" enhält (u.a).

dann ein ein Object dass den Record als Property hat.

und dann eine Abgeleitet Version von TList (TDataList)

die als Property das Object hat.

Delphi-Quellcode:

TDataList = class(TList)
  public
    procedure Delete(Index: integer);
    procedure Clear;
    procedure ClearIndexes;
    procedure DeleteIndex(Index: integer);
  end;

...

{ TDataList }

procedure TDataList.Clear;
begin
  while Count <> 0 do Delete(1);
end;

procedure TDataList.ClearIndexes;
begin
  inherited Clear;
end;

procedure TDataList.Delete(Index: integer);
begin
  if (Index = 0) or (Index > Count) then Exit;
  TObject(Items[Index-1]).Free;
  inherited Delete(Index-1);
end;

procedure TDataList.DeleteIndex(Index: integer);
begin
  if (Index = 0) or (Index > Count) then Exit;
  inherited Delete(Index-1);
end;

so nun möchte ich die Items der Datalist nach den Namen im Record Sortieren.

hat mir da evtl Jemand ne lösung?

thx
Daniel