Konzeptfrage: Sortierfunktion nach Datum (Integer) in TStringList erweitern

[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]

Zitat von stahli:

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...

[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

[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!

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 von juergen:

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.....
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.


Allen eine Gute N8!

[stahli]

Ich verstehe das noch nicht ganz. Wie sehen denn Deine Strings aus?
Zerlegst Du die zum Vergleichen nochmal in Path, Filename, Spez.?

Vielleicht wärst Du mit Objekten wirklich gut bedient?

Delphi-Quellcode:

TMyObject = class
  Path: String;
  FileName: String;
  Spez: String;
  Date: TDate;
end;

Eine ObjectList kannst Du dann mit Sortierfunktionen unterschiedlich sortieren.

Die letzte Entscheidung wäre dann immer die Objektadresse.

---

zu Oben: Bei Result=0 ist die Reihenfolge m.E. zufällig