Ups, Deine Reaktion zeigt das ich mich wohl etwas im Ton vergriffen habe. Sorry.
Wenn ich das richtig sehe liefert Find schon den richtigen Index an den das Item gehören würde, selbst wenn es nicht gefunden wird. Somit brauchst Du nicht sortieren, da die Liste (wenn man an dieser Stelle einfügt) weiterhin sortiert ist. Das Einfügen geht deutlich schneller da nur der hintere Teil der Liste im Speicher verschoben wird, ohne das noch einmal Elemente miteinander verglichen werden müssen. Das dupError vervollständigt nur die Duplicate - Einstellmöglichkeiten.
Delphi-Quellcode:
..uses RTLConsts,..;
function TList.Add(Item: Pointer): Integer;
begin
if FSorted then
begin
if Find(Item, Result) then
begin
case Duplicates of
dupIgnore: Exit;
dupError: Error(@SDuplicateItem, Integer(Item));
dupAccept: Insert(Result, Item);
end;
end else
Insert(Result, Item);
end else
Result := inherited Add(Item);
end;
Grüsse, Dirk
PS: nach 10 Tagen ohne Antwort darfst Du in Deinem anderen Thread ruhig darauf hinweisen das das Problem noch besteht, sonst denkt hier vermutlich jeder das es sich erledigt hat.