Generics TList<> sortieren

[himitsu]

PS: Es gibt auch schon was Fertiges:

Delphi-Quellcode:

function(const L, R: TDataItem): Integer
begin
  Result := CompareValue(L.Modified, R.Modified);  // oder CompareStr/CompareText
end

// lässt sich auch verschachteln
function(const L, R: TDataItem): Integer
begin
  Result := CompareValue(L.Modified, R.Modified);
  if Result = 0 then
    Result := CompareValue(L.WasAnderes, R.WasAnderes);
  if Result = 0 then
    ...
end

Aber wenn, dann kann es nie schaden, wenn man die "korrekten" Typen und passende Konstanten verwendet.

Delphi-Quellcode:

function(const A, B: xxxx): TValueRelationship;
begin
  if A = B then //if SameValue(A, B, Epsilon) then
    Result := EqualsValue
  else if A < B then
    Result := LessThanValue
  else
    Result := GreaterThanValue;
end

function(const A, B: xxxx): TValueRelationship;
begin
  Result := EqualsValue;
  if A < B then
    Result := LessThanValue
  else if A > B then
    Result := GreaterThanValue;
end