Konzeptfrage: Sortierfunktion nach Datum (Integer) in TStringList erweitern

[juergen]

Hallo zusammen,

ich sortiere Dateinamen in einer StringList entweder nach Name, Verzeichnis, Dateiendung oder nach Datum.
Jetzt ist mir aufgefallen, dass die Anordnung der Dateien bei der Sortierung nach Datum nicht immer gleich ist; weil es Dateien mit identischem Datum geben kann. Das Datum speichere ich als Integerwert beim Einlesen der Dateien in das jeweilige Object.
Mit nachfolgender Funktion steht das jüngste Datum in meiner StringList wie gewünscht ganz oben und die Funktion ist ziemlich flott, weil nach Integer sortiert wird:

Delphi-Quellcode:

//nach Datum sortieren
function DoCompareByDate(List: TStringList; Index1, Index2: Integer): Integer;
begin
  Result := 0;
  if Assigned(List) then begin
    if (Integer(List.Objects[Index1]) < Integer(List.Objects[Index2])) then begin
      Result := 1;
    end
    else if (Integer(List.Objects[Index1]) > Integer(List.Objects[Index2])) then begin
      Result := -1;
    end;
  end;
end;

Nun meine Frage:
Wie könnte ich das ganze nun erweitern, so das bei jedem Wechsel meiner Sortierung nach Datum die Dateien auch immmer in der selben Reihenfolge in meiner StringList stehen?
Am Besten weiterhin auf Integer-Basis, weil schnell.

Für Denkanstöße schon mal ein Dankeschön vorab!

[Satty67]

Wenn Du jedem Eintrag eine eindeutige ID zuordnen kannst, dass als zweites niederwertiges Kriterium bei der Sortierung verwenden.

[stahli]

Vergleiche doch im Gleichheitsfall nachträglich noch den Text.

Delphi-Quellcode:

function DoCompareByDate(List: TStringList; Index1, Index2: Integer): Integer;
begin
  Result := 0;
  if Assigned(List) then 
  begin
    if (Integer(List.Objects[Index1]) < Integer(List.Objects[Index2])) then
      Result := 1
    else 
    if (Integer(List.Objects[Index1]) > Integer(List.Objects[Index2])) then
      Result := -1
    else
    if (List[Index1] < List[Index2]) then 
      Result := 1
    else
    if (List[Index1] > List[Index2]) then 
      Result := -1;
  end;
end;

[Satty67]

Der Text wäre (zumindest wenn identische Strings als gleichwertig zu betrachten sind) eine Art eindeutige ID. Nur je nach Art der Daten hat er viele Textvergleiche, was er wohl zu verhindern versucht?

Wenn es egal ist, dann Ok.

Ansonsten würde ich da fast ein anderes Listenformat nehmen. Delphi 2007 hat da leider noch keine flexiblen Key/Value-Listen mit dabei. Ein Dictionary-Beispiel schwirrt hier aber rum, eine einfache Int64/String Liste mit QuickSort sollte notfalls auch schnell gebastelt sein. (Man könnte auch mal schauen, ob man von TSTrings ableiten kann und Objekt statt Pointer mit Int64 implementiert)

[stahli]

Oder gleich richtige Objekte mit entsprechenden Propertys nehmen und in einer TObjectList speichern.
Die lässt sich ja dann gut sortieren.

[Bbommel]

Ich würde es insgesamt etwas knapper so formulieren (inhaltlich auch der gleiche Vorschlag, als eindeutige "ID" den Namen zu nehmen):

Delphi-Quellcode:

function DoCompareByDate(List: TStringList; Index1, Index2: Integer): Integer;
begin
  if Assigned(List) then begin
    Result:=CompareValue(Integer(List.Objects[Index1]),Integer(List.Objects[Index2]));
    if Result=0 then
      Result:=CompareStr(List[Index1],List[Index2]);
  end else
    Result:=0;
end;

Mit diesen Funktionen sind viele Sortierfunktionen versehen, die ich in TObjectList oder TList benutze, die sortieren hundertausende von Elementen und das geht Ratzfatz - um Geschwindigkeit müsstest du dir da eigentlich keine Sorgen machen, auch nicht bei String-Vergleichen (auch wenn natürlich ein sauberer Integer-Vergleich viel, viel schöner ist).

Bis denn
Bommel

[Bbommel]

Zitat:

Zitat von stahli (Beitrag 1055860)

Oder gleich richtige Objekte mit entsprechenden Propertys nehmen und in einer TObjectList speichern.
Die lässt sich ja dann gut sortieren.

An der Vergleichsfunktion würde sich aber letztlich eigentlich nichts ändern... :)

[juergen]

@Satty67,
danke für deine Antworten. Da ich in meine (schon abgeleitete) TStringList schon viel Zeit für Erweiterungen investiert habe würde ich momentan eine Umstellung auf ein anderes Listenformat als allerletzte Variante in Betracht ziehen.

@Stahli,
danke für dein Hilfe.
Diesen Weg hatte ich nicht in Betracht gezogen weil ich dachte dass dieses viel zu langsam wäre.
Habe es aber gerade getestet und bin ziemlich erstaunt. Und zwar positiv!
Bei ca. 162.000 Datensätzen dauert die Sortierung nur ca.820 ms. Das wäre sehr gut.
Meine ursprüngliche Sortierung benötigte ca. 310ms. Ich hätte nicht gedacht dass es so schnell ist!

Ich glaube es gibt aber noch ein Problem wenn die Dateinamen gleich wären UND das jeweilige Datum auch.
Dann wäre die Sortierung wieder zufällig, oder?


Vielen Dank für Eure Hilfe! :dp:

Edit:
@Stahli, Ich hatte mich anfangs für die TStringList entschieden und erst wesentlich die Vorteile der TObjectList erfahren. Zum Anfang waren die Anforderungen ziemlich übersichtlich. Im Laufe der Zeit kamen aber immer wieder neue Anforderungen hinzu. Ich stand schon mal kurz vor dem Entschluß auf TObjectList umzustellen, dass hätte mir einiges an Arbeit gespart.

[Bbommel]

Zitat:

Zitat von juergen (Beitrag 1055863)

Ich glaube es gibt aber noch ein Problem wenn die Dateinamen gleich wären UND das jeweilige Datum auch.
Dann wäre die Sortierung wieder zufällig, oder?

Wo kommen die Dateinamen denn her? Spätestens, wenn du als letzten Schritt auch noch den kompletten Pfad nimmst, muss das ganze doch eindeutig sein, oder?

[juergen]

@Bbommel,

es ist wohl schon zu spät.....:oops:
In meiner visuellen Komponeten (Listbox) zeige ich nur die Dateinamen an. Das habe ich wohl gerade durcheinander gebracht.
In meiner TStringList habe ich aber den kompletten Pfad + Dateiname drin. Somit ist natürlich schon alles eindeutig. :-D


Allen eine Gute N8!