Zitat von
sx2008:
Wenn du das Datum in der Form yyyy-mm-dd ausgibst, dann werden die Datumswerte richtig sortiert.
Delphi-Quellcode:
// hier die notwändige Änderung
temp:= FormatDateTime('yyyy-mm-dd', StrtoDate(copy(Inputstring,1,10)));
Wenn dir das Datumsformat nicht gefällt, musst du "schwerere Geschütze" auffahren.
Hallo sx2008,
das ist eine sehr einfache Lösung, aber:
Die Liste läßt sich nur einmal sortieren und dann kriege ich einen eConvert Error:
'1920-01-31' ist kein gültiges Datum.
Hier die Func:
Delphi-Quellcode:
function TForm1.sortListe2(L:TListbox):TListbox;
var i: integer;
Zeilendatum:String;
Zeilenrest:string;
temp:string;
begin
for i := 0 to L.items.count-1 do
begin
temp:= FormatDateTime('yyyy-mm-dd', StrtoDate(copy(L.Items[i],1,10)));
ZeilenDatum:= temp;
Zeilenrest:= copy(L.Items[i],11,length(L.Items[i]));
L.Items[i]:='';
L.Items[i]:=Zeilendatum +' '+ Zeilenrest;
end;
L.sorted:=true;
end;