Einzelnen Beitrag anzeigen

o-sch

Registriert seit: 18. Okt 2006
Ort: Essen
11 Beiträge
 
Delphi XE2 Enterprise
 
#13

Re: TObjectList - Sort crash (D7)

  Alt 12. Mär 2008, 08:42
Ich habe eine Workaround gefunden.
Wenn ich mach jedem Add sofort sortiere, dann läuft es zumindest durch.

Schöne und saubere Lösungen sehen anders aus

Delphi-Quellcode:
function TMyItemList.NewMyItem(a1,a2,a3:Integer):TmyItem;
begin
  Result := NIL;
  Result := TmyItem.Create(Self);
  Result.V1 := a1;
  Result.V2 := a2;
  Result.V3 := a3;
  Self.Add(Result);

  Self.Sort(MyListCompare); // Workaround - fix me !

end;
  Mit Zitat antworten Zitat