Listbox sortieren

[Taladan]

ich hab ein kleines problem, meine listbox zu sortieren. In ihr werden alle Daten als string angezeigt. wenn ich diese sortieren lasse, werden sie erst nach tag dann nach monat dann nach jahr sortiert. so kommt es, das eine reihenfolge von

01.06.2003
06.01.2003
07.02.2002

vorkommen kann. wie kann ich das ändern?

[Illuminator-23-5]

du könntest selbst einen sortier-algorithmus programmieren, der es nach deinen wünschen sortiert!
einige sortieralgorithmen sollten bereits in der code-library sein!

[Stanlay Hanks]

Probier mal das ganze mit einer For Schleife durchzugehen und die Daten einfach mit StrToDate(Listbox1.Items[i]) zu prüfen und so zu sortieren.

Müsste eigentlich funktionieren.

Man liest sich, Stanlay

[Illuminator-23-5]

hier im fall ein beispiel(bubblesort):

Delphi-Quellcode:

procedure Sort;
var
  i, j: integer;
  h: string;
begin
  with ListBox1 do begin
    for i := 1 to ListBox1.Items.Count - 1 do 
     for j := i to ListBox1.Items.Count - 1 do begin
        if StrToDate(Items[j] > StrToDate(Items[j-1] then begin
          h := Items[j];
          Items[j] := Items[j-1];
          Items[j+-1] := h;
        end;
    end;
end;

müsste theoretisch funzen!