anchor.diff:  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
   
  
positive.code: {$ENDIF}
  
  uses
    Classes, SysUtils, Variants,
    mIntList, mDoubleList;
  
  const
  
negative.code:   _MergeSort(List,0,List.Count-1,OnCompare);
  end;
  
  function GetCPUCores : integer;
  var
    Info: TSystemInfo;
  begin
    GetSystemInfo(Info);
    Result := Info.dwNumberOfProcessors;
  end;
  
  
  initialization
    Randomize;
  