anchor.diff:    _MergeSort(List,0,List.Count-1,OnCompare);
   end;
   
  +function GetCPUCores : integer;
  +var
  +  Info: TSystemInfo;
  +begin
  +  GetSystemInfo(Info);
  +  Result := Info.dwNumberOfProcessors;
  +end;
  +
   
   initialization
     Randomize;
  
positive.code: {$ENDIF}
  
  uses
    Classes, SysUtils, Variants,
    mIntList, mDoubleList;
  
  const
  
negative.code: procedure ConvertVariantToDoubleList (const aValue : variant; aList : TDoubleList);
  procedure ConvertVariantToDateList (const aValue : variant; aList : TIntegerList);
  procedure ConvertVariantToDateTimeList (const aValue : variant; aList : TDoubleList);
  
  function GetCPUCores : integer;
  
  implementation
  
  