(nonVcl) ListView Sortieren ein durcheinander

[EWeiss]

Zitat von Delphi-Laie:

Zitat von EWeiss:

Zitat:

Die CompareFunc-Funktion allein kann m.E. nicht sortieren,

Wie kann nicht. Klar kann sie das Strings und Integer werte.

Nein, das kann sie eben nicht, da sie kein Sortierfunktionalität beinhaltet, jedenfalls nicht im engeren Sinne. Sie bedient sich dazu der intern aufgerufenen Funktion "ListView_SortItems" bzw. konkret deren Unterprogramme, die die eigentliche Sortierarbeit übernimmt / übernehmen.

Wenn du das sagst
Versuchs mal nur mit ListView_SortItems und schau was dabei rum kommt.

Für mich ist ausschlaggebend das ich 6000 Dateien im ms. Bereich sortieren kann.

gruss

[EWeiss]

irgend jemand ne Ahnung wie ich das hier auf Luckies Compare Funktion umlegen kann?

Delphi-Quellcode:

//Float-Werte
     2: begin
       Compare := 0;
       if StrToFloat(TextToSort1) > StrToFloat(TextToSort2) then
         Compare := Trunc(StrToFloat(TextToSort1)-StrToFloat(TextToSort2))+1;
       if StrToFloat(TextToSort1) < StrToFloat(TextToSort2) then
         Compare := Trunc(StrToFloat(TextToSort1)-StrToFloat(TextToSort2))-1;
     end; //2
//DateTime-Werte
     3: begin
       Compare := 0;
       if StrToDateTime(TextToSort1) > StrToDateTime(TextToSort2) then
         Compare := Trunc(StrToDateTime(TextToSort1)-StrToDateTime(TextToSort2))+1;
       if StrToDateTime(TextToSort1) < StrToDateTime(TextToSort2) then
         Compare := Trunc(StrToDateTime(TextToSort1)-StrToDateTime(TextToSort2))-1;
     end; //3

Ich könnte mir dann diesen type erweitern.
TSortType = (sortInt = 1, sortString = 2);
TSortType = (sortInt = 1, sortString = 2, sortFloat = 3, sortDateTime = 4);
gruss