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