anchor.diff:    {$ELSE}
       varUString:  Result := TSuperObject.Create(SOString(string(VUString)));
     {$ENDIF}
  -{$ifend}
  +{$ENDIF}
     else
       raise Exception.CreateFmt('Unsuported variant data type: %d', [VType]);
     end;
  
positive.code:   p: PSOChar;
  begin
    Result := CurrToStr(value);
    if {$if defined(NEED_FORMATSETTINGS)}FormatSettings.{$ifend}DecimalSeparator <> '.' then
    begin
      p := PSOChar(Result);
      while p^ <> #0 do
        if p^ <> SOChar({$if defined(NEED_FORMATSETTINGS)}FormatSettings.{$ifend}DecimalSeparator) then
        inc(p) else
        begin
          p^ := '.';
  
negative.code:   SOIChar = Word;
    PSOChar = PChar;
    SOString = string;
  {$ENDIF}
  
  const
    SUPER_ARRAY_LIST_DEFAULT_SIZE = 32;
  