mORMot Open Source

function OrderBy(const A, B): Integer;
   function SortDateTime(const A, B): Integer;
   begin
      if TDateTime(A) < TDateTime(B) then
         Result := -1
      else
         if TDateTime(A) > TDateTime(B) then
            Result := 1
         else
            Result := 0;
   end;
begin
   Result := SortDynArrayInteger(TRec(A).USER_ID, TRec(B).CUSER_ID);
   if Result = 0 then
   begin
      Result := SortDynArrayInteger(TRec(A).PRIORITY_ID, TRec(B).PRIORITY_ID);
      if Result = 0 then
         Result := SortDateTime(TRec(A).DATEINI, TRec(B).DATEINI);
   end;
end;