Problem mit CustomSort in Listview

[Luckie]

Die Sortierung müsste so aussehen:

Delphi-Quellcode:

function AuswertungSortProc(Item1, Item2: TListItem; Data: Integer): Integer; stdcall;
   var prio1,prio2:integer;
var
  res: Integer;
begin
   res := CompareText(Item1.Caption,Item2.Caption)
   if (res = 0) and (ComparePrio(strtoint(item1.SubItems[0]), strtoint(item2.SubItems[0]) > 0) then
      Result := ComparePrio(strtoint(item1.SubItems[0]), strtoint(item2.SubItems[0]))
   else
     Result := res;
end;