ListView nach Integer sortieren

**Tpercon**

In der zweiten Spalte der ListView stehen nur Zahlen und danach möchte ich die Einträge sortiert haben. Der gute alte Bubble Sort funktioniert da zwar perfekt, ist aber viel zu langsam. Wer hat ne schnellere Lösung? Gibt es sowas wie CompareText nur für Integer halt?
Mein jetziger Code:

markieren

Code:

			     ListView1.Items.BeginUpdate;

     ListView1.Items.Add;

     For x:=ListView1.Items.Count-2 downto 0 do

      For y:=0 to x do

       If StrtoInt(ListView1.Items.Item[x].SubItems.Strings[0])<StrtoInt(ListView1.Items.Item[y].SubItems.Strings[0])

        then

         begin

          ListView1.Items.Item[ListView1.Items.Count-1]:=ListView1.Items.Item[x];

          ListView1.Items.Item[x]:=ListView1.Items.Item[y];

          ListView1.Items.Item[y]:=ListView1.Items.Item[ListView1.Items.Count-1];

         end;

     ListView1.Items.Delete(ListView1.Items.Count-1);

     ListView1.Items.EndUpdate;

Als ShellSort auf Basis von Daniels Code aus dem Tutorial gehts zwar schon schneller, aber zufrieden kann man damit trotzdem nicht sein.

markieren

Code:

			     ListView1.Items.BeginUpdate;

     ListView1.Items.Add;

     h:=1;

     Repeat 

      h:=(3*h)+1; 

     Until (h>ListView1.Items.Count-1); 

     Repeat 

      h:=(h div 3); 

      For i:=(h+1) To ListView1.Items.Count-1 Do 

       Begin

        ListView1.Items.Item[listView1.Items.Count-1]:=ListView1.Items.Item[i-1];

        j:=i; 

        While ((j>h) and (StrtoInt(ListView1.Items.Item[j-h-1].SubItems.Strings[0])>StrtoInt(ListView1.Items.Item[listView1.Items.Count-1].SubItems.Strings[0]))) Do

         Begin 

          ListView1.Items.Item[j-1]:=ListView1.Items.Item[j-h-1];

          dec(j,h); 

         End; 

        ListView1.Items.Item[j-1]:=ListView1.Items.Item[listView1.Items.Count-1];

       End; 

     Until (h=1); 

     ListView1.Items.Delete(ListView1.Items.Count-1);

     ListView1.Items.EndUpdate;

Gruß

ListView nach Integer sortieren

ListView nach Integer sortieren

Forumregeln