anchor.diff:  
     TDValueList = class(TObject)
     private
  +    {$IFDEF UNICODE}
  +    FList: TList<TDValueObject>;
  +    {$ELSE}
       FList: TList;
  +    {$ENDIF}
       function GetCount: Integer;
       function GetItems(pvIndex: Integer): TDValueObject;
       function InnerAdd(pvValueName:string): TDValueObject;
  
positive.code:  * Ȩ:
        qdac.swish, d10.
   * οqdacqvalueʵ
  *)
  unit utils_DValue;
  
  
  
  
  interface
  
  uses classes, sysutils, variants, varutils, math;
  
  
  type
  
negative.code: constructor TDValueList.Create;
  begin
    inherited Create;
  {$IFDEF UNICODE}
    FList := TList<TDValueObject>.Create;
  {$ELSE}
    FList := TList.Create;
  {$ENDIF}
  
  end;
  
  destructor TDValueList.Destroy;
  