Sortierung von Daten in Textdateien

[hoika]

Hallo,

da hilft ein Käffchen *einschenk*

Ist das Datum immer so ?
24.08.09


dann etwa so

Delphi-Quellcode:

function CompareDate(const theDate1, theDate2: TDateTime): Integer
begin
  if theDate1<theDate2) then
  begin
    Result:= -1;
    Exit;
  end;
  if theDate1<theDate2) then
  begin
    Result:= +1;
    Exit;
  end;

  Result:= 0;
end;


function MyCompare(theStr1, theStr2: String): Integer;
begin
  sSubStr1:= Copy(theStr1, 1, 8);
  StrToDate(sSubStr1, tdtDate1);
  sSubStr2:= Copy(theStr2, 1, 8);
  StrToDate(sSubStr2, tdtDate2);

  Result:= CompareDate(tdtdate1, tdtDate2);
end;

StrList.CustomSort(@MyCompare);

Ist zwar etwas langsam wegen den ganzen Copy-Befehlen,
aber das kann man auch ändern, wenn man statt StringList
eine TList benutzt (hat auch CustomSort, logisch)
und die Daten in eine eigene Klasse packt, wo das tdtDate
schon beim Erzeugen der Datenklasse gemacht wird.


Heiko