TListview nach mehreren Kriterien sortieren

[Gast_1]

hallo, ich habe eine TListView und möchte diese gleichzeitig nach mehreren Kriterien mit unterschiedlicher Priorität sortieren.
<br><br>
ich benutze derzeit folgenden Code:
<br><br>
<pre>
function CustomSortProc(Item1, Item2: TListItem; ParamSort: integer): integer; stdcall;
begin
Result := -CompareText(Item1.Subitems[5],Item2.Subitems[5]);
end;

ListView1.CustomSort(@CustomSortProc, 0);
</pre>
<br>
hier sortier ich bereits nach einem Kriterium. Wie füge ich weitere zwei Kriterien hinzu?<br>
<br>
Danke,MB

[Mario.Noack]

So müsste es gehen:<p><pre>
function CustomSortProc(Item1, Item2: TListItem; ParamSort: integer): integer; stdcall;
begin
Result := -CompareText(Item1.Subitems[5],Item2.Subitems[5]);
IF Result = 0
THEN Result := -CompareText(Item1.Subitems[6],Item2.Subitems[6]);
end;</pre><p>
Hintergrund: Nur wenn der Vergleich 0 also Gleichheit ergibt, ist das weitere Kriterium notwendig.<p>
Schöne Grüße, Mario Noac

[Gast_1]

richtig, bin mittlerweile selber drauf gekommen (vor 5 min),
danke für die Mühen...
<br><br>
Gruß,M