Listbox nach Datum sortieren

[Codix32]

Zitat von Luckie:

Was ist mit miner Lösung?

DANKE LUCKIE!

Dein Code funzt einwandfrei, ich bin begeistert.

Du bist wohl auch beruflich Programmierer.

[Codix32]

Zitat von Codix32:

Zitat von Luckie:

Was ist mit miner Lösung?

DANKE LUCKIE!

Dein Code funzt einwandfrei, ich bin begeistert.

Du bist wohl auch beruflich Programmierer.

Hier bin ich wieder. Nichts für ungut, aber die Routine mit Bubblesort ist sehr sehr langsam.


Ich greife also hier wieder auf 'Listbox.sorted' zurück:

Delphi-Quellcode:

procedure TForm1.sortListe3(L:TListbox);
var i: integer;
    Zeilendatum:String;
    Zeilenrest:string;
    temp:string;
    doubleTmp:double;
begin
for i := 0 to L.items.count-1 do
begin
doubleTmp:= strtodate(copy(L.Items[i],1,10));
   temp:=floattostr(doubleTmp);
   if length(temp)=1 then temp:='000000'+temp;
   if length(temp)=2 then temp:='00000'+temp;
   if length(temp)=3 then temp:='0000'+temp;
   if length(temp)=4 then temp:='000'+temp;
   if length(temp)=5 then temp:='00'+temp;
   if length(temp)=6 then temp:='0'+temp;
ZeilenDatum:= temp;
Zeilenrest:= copy(L.Items[i],11,length(L.Items[i]));
L.Items[i]:=Zeilendatum +'     '+ Zeilenrest;
end;
 
L.sorted:=true;

 for i := 0 to L.items.count-1 do
 begin
   doubleTmp:= strtofloat(Trim(copy(L.Items[i],1,10)));
   ZeilenDatum:= datetostr(doubleTmp);//+'    '+floattostr(doubleTmp);
   Zeilenrest:= copy(L.Items[i],11,length(L.Items[i]));
   L.Items[i]:= Zeilendatum +'     '+ Zeilenrest;
 end;
end;

Obwohl die Items durch 2 Schleifen laufen, ist damit ruckizucki sortiert. Es wird das Datum als Double-Zahlenwert an den Anfang jedes Items geschrieben, danach sortiert und in der 2. Schleife der Zahlenwert wieder entfernt.

Obwohl das 'Werk' funzt, gefällt es mir nicht. Gibts noch einen anderen Ansatz?

Ist die Delphi interne Function 'Sorted' eigentlich in Assembler geschrieben und wenn ja, wer hat den Quelltext? Die Funktion ist sehr schnell und daher interessant.

Was meint ihr?

[Luckie]

Wie veiele Einträge hast du denn in der Liste, dass Bubblesort so langsam ist? Du kannst natürlcih auch jeden anderen Sortieralgorithmus nehmen. Bubblesort habe ich nur genommen, weil er relativ einfach und schnell zu implementieren ist.

[Codix32]

Zitat von Luckie:

Wie veiele Einträge hast du denn in der Liste, dass Bubblesort so langsam ist? Du kannst natürlcih auch jeden anderen Sortieralgorithmus nehmen. Bubblesort habe ich nur genommen, weil er relativ einfach und schnell zu implementieren ist.

Bei 400 Einträgen braucht die Sortierung ~20 Sekunden. Das ist zu lange. Meine Routine braucht nur etwas unter 1 Sekunde. Ich suche eine saubere Möglichkeit des Sortierens.

[Luckie]

Folgendes: Setzmal den BubbleSort Aufruf in eine TListbox.BeginUpdate und TListbox.EndUpdate. Und dannkannst du noch einen besseren Sortieralgorithmus benutzen, wie zum Beispiel Quicksort oder so.

[Fridolin Walther]

Bubble Sort ist für 400 Einträge völlig ausreichend. Das Problem, wieso es mit einer ListBox so langsam erscheint ist, daß die Operationen um die Position einzelner Strings innerhalb der Listbox zu verändern recht langsam ist, da die UI bei jeder Operation upgedated wird. Entsprechend benutz BeginUpdate und EndUpdate.

Ansonsten benutzt Delphi in so ziemlich allen VCL Komponenten, die sortieren können, QuickSort.

[Luckie]

Listbox, es geht um eine Listbox. Ändert natürlich nichts an deiner Aussage bezüglich des Neuzeichnes beim Verschieben der Einträge.

[Codix32]

Zitat von Luckie:

Folgendes: Setzmal den BubbleSort Aufruf in eine TListbox.BeginUpdate und TListbox.EndUpdate. Und dannkannst du noch einen besseren Sortieralgorithmus benutzen, wie zum Beispiel Quicksort oder so.

Danke Dir luckie,

werde das morgen mal probieren. Würde mich interessieren, was 'Listbox.sorted' für ein Algorithmus ist. Mal sehen. .-)

[Luckie]

Zitat von 0xF30FC7:

Ansonsten benutzt Delphi in so ziemlich allen VCL Komponenten, die sortieren können, QuickSort.

[Fridolin Walther]

Zitat von Luckie:

Listbox, es gerht um eine Listbox. Ändert natürlcih nichts an deiner Aussage bezüglich des Neuzeichnes beim Verschieben der Einträge.

Au ja ... grad gesehen. Danke für den Hinweis. Werds korrigieren .

Zitat von Codix32:

werde das morgen mal probieren. Würde mich interessieren, was 'Listbox.sorted' für ein Algorithmus ist. Mal sehen. .-)

Sagte ich bereits ... QuickSort .