Einzelnen Beitrag anzeigen

Bbommel

Registriert seit: 27. Jun 2007
Ort: Köln
659 Beiträge
 
Delphi 12 Athens
 
#6

AW: Konzeptfrage: Sortierfunktion nach Datum (Integer) in TStringList erweitern

  Alt 14. Okt 2010, 23:21
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

Geändert von Bbommel (14. Okt 2010 um 23:28 Uhr) Grund: Überflüssiges "Objects" beim 2. Vergleich weg. Autschn.
  Mit Zitat antworten Zitat