Stringlist nach Datum sortieren

[juergen]

Hallo,

ich habe sowas auch schon mal umgesetzt. Auch aus Performancegründen habe ich mir das Datum dabei im Format YYYYMMDD... (als Integer) in der Object-ID der StringList jeweils weggespeichert (die weiterer Nutzung der Uhrzeiten legt die Genauigkeit fest wie die Sortierung sein soll).
Wie die Anzeige für den User sein soll kannst du dann selbst festlegen. Sortiert wird aber nach der Object-ID der einzelnen Zeilen der StringList.

[KodeZwerg]

Ich mach es ähnlich wie hier beschrieben. Relativ direkte Methode, ich bin sehr Zufrieden so.

edit
Ich beziehe mich auf das:

Delphi-Quellcode:

{$APPTYPE CONSOLE}

uses
  SysUtils,
  Classes,
  DateUtils;

function CompareDate(List: TStringList; Index1, Index2: Integer): Integer;
var
  Val1, Val2: TDateTime;
begin
  val1:= FileDateToDateTime(FileAge(list[Index1]));
  val2:= FileDateToDateTime(FileAge(list[Index2]));
  Result := CompareDateTime(Val1, Val2);
end;

var
  sl : TStringList;
  i : Integer;
begin
  sl := TStringList.Create();

  sl.Add('New Text Document (3).txt');
  sl.Add('New Text Document (2).txt');
  sl.Add('New Text Document.txt');

  sl.CustomSort(CompareDate);

  for i := 0 to sl.Count - 1 do
  begin
    Writeln(sl[i]);
  end;
end.

[MicMic]

Ob FileAge hier für die Geschwindigkeit gut ist? Ich glaube nicht.
und FileDateToDateTime prüft hier wohl auch nur das Datum und nicht eine Uhrzeit? Zumindest wenn ich es richtig verstehe. FileDateToDateTime=32 Bit. Double=64 Bit?

Ich habe jedenfalls eben noch herausgefunden, dass meine 2 letzten IF-Abfragen nicht funktionieren. Hier soll ja ein Dateiname (TSearchrec.Name) sortiert werden, wenn bei Datum für Result 0 rauskommt. Also habe ich die letzten beiden IFs mal abgeändert:

Code:

If fjSortUp = 0 Then Result := -AnsiCompareText(List[Index1],List[Index2])
Else Result := AnsiCompareText(List[Index1],List[Index2])

So funktioniert dann auch die Sortierung mit den Dateinamen. Jedoch gibt es dennoch unterschiede zum TC. Es kommt halt darauf an, was der TC macht, wenn der Datumsvergleich bei gleichen Zeiten für Dateien oder Verzeichnisse 0 ergibt. Ich dachte evtl. das hier noch zusätzlich (wenn Result 0 ergibt) andere Datumsquellen genutzt werden (z.B. ein Erstellungsdatum). Aber in dem Verzeichnis wo ich das alles teste, haben die anderen Datumsquellen gleiche Angaben zum normalen Änderungsdatum.

Die Geschichte geht ja dann auch weiter. Zum Beispiel beim Sortieren der Dateigröße. Dort hat man auch gleiche Dateigrößen in einem Verzeichnis. Also muss man sich doch gut überlegen, was man macht, wenn ein Datum oder eine Dateigröße gleich ist. Oder soll man wenn Index1 < Index2 oder Index1 > Index2 den Wert 0 zurück liefert, weitere Prüfungen auslassen und damit Leben?

Vielleicht könnte noch jemand etwas zu diesem ...Time*24*60*60*1000 schreiben, ob dies so richtig ist.

Michael

[MicMic]

Ich habe nun herausgefunden wie der TC bei Datum sortiert.
Also entweder auf oder absteigend und wenn ein Datum+Zeit gleich ist, wird nach Dateinamen sortiert aber hier dann nur immer in einer Richtung.

Wie es der Win-Explorer macht, weiß ich noch nicht

Michael

[Jumpy]

Evtl. ist es aber auch von der vorherigen Sortierung abhängig? Also es wird z.B erst nach Name sortiert. Dann wird auf das Datum geklickt um nach dem Datum zu sortieren und je nach Sortieralgo, bleibt die vorherige Namessortierung dabei erhalten oder nicht. Stichwort ist glaub ich Stabilität?

[p80286]

"Stabilität" ist korrekt.
ist ein Algo. "stabil", dann behält er die vorgefundene Reihenfolge bei, wenn beide Vergleichsfelder/Werte gleich sind.
Was das Filedate angeht, wenn ich mich recht erinnere liegt die Auflösung bei 2 sec. Zumindest unter DOS bzw FAT war es so.

Gruß
K-H

[MicMic]

Eine vorherige Sortierung zu berücksichtigen würde Sinn machen.
Aber der Win-Explorer oder der TC macht das auch nicht.

Man könnte dann aber wirklich auch Sinn hineingeben, dass man von einer Standard-Sortierung ausgeht (Also nach Alphabet der Dateinamen), wenn Datumsvergleiche (+Zeit) wegen gleichen Datumsangaben (+Zeit) fehlschlagen. So werde ich das dann auch lassen und bei der Sortierung der Dateigröße ebenfalls so handeln.

Michael

[KodeZwerg]

ich hab was überlesen, sorry, Beitrag entfernt.

[himitsu]

Man kann auch nach mehreren Kriteien sortieren und bekommt so ebenfalls ein eindeutiges Ergebnis.
Ob da nun stabil sortiert wird oder nicht, ist dabei egal, da Beide das selbe Ergebnis liefern.

z.B. als letztes der Dateiname, welcher bekanntlich eindeutig ist und somit auch nur "eine" Reihenfolge zulässt.

[KodeZwerg]

Zitat von MicMic:

Ob FileAge hier für die Geschwindigkeit gut ist? Ich glaube nicht.

Ich wüsst nicht das FileAge eine Bremse sein kann. Hier noch etwas Lektüre - FileDateToDateTime

Zitat:

You may need to use FileDateToDateTime to convert the Time field of the TSearchRec type used by the FindFirst and FindNext functions.

Und die Frage ob bei FileDateToDateTime auch die Zeit erfasst wird ist damit auch geklärt.