Microsoft Visual Studio Solution File, Format Version 9.00
# Visual Studio 2005
Project("{8BC9CEB8-8B4A-11D0-8D11-00A0C91BC942}") = "ScInter", "ScInter\ScInter.vcproj", "{4F667965-218D-4246-AFE8-BD41FCD4255A}"
EndProject
Global
  GlobalSection(SolutionConfigurationPlatforms) = preSolution
   Debug|Win32 = Debug|Win32
   Release|Win32 = Release|Win32
  EndGlobalSection
  GlobalSection(ProjectConfigurationPlatforms) = postSolution
   {4F667965-218D-4246-AFE8-BD41FCD4255A}.Debug|Win32.ActiveCfg = Debug|Win32
   {4F667965-218D-4246-AFE8-BD41FCD4255A}.Debug|Win32.Build.0 = Debug|Win32
   {4F667965-218D-4246-AFE8-BD41FCD4255A}.Release|Win32.ActiveCfg = Release|Win32
   {4F667965-218D-4246-AFE8-BD41FCD4255A}.Release|Win32.Build.0 = Release|Win32
  EndGlobalSection
  GlobalSection(SolutionProperties) = preSolution
   HideSolutionNode = FALSE
  EndGlobalSection
EndGlobal

ByteString ByteString::CreateFromFloat( float f )
{
  sal_Char aBuf[RTL_STR_MAX_VALUEOFFLOAT];
     BOOST_STATIC_ASSERT(RTL_STR_MAX_VALUEOFFLOAT <= STRING_MAXLEN);
  return ByteString(
         aBuf, static_cast< xub_StrLen >(rtl_str_valueOfFloat( aBuf, f )) );
}

float ByteString::ToFloat() const
{
  DBG_CHKTHIS( ByteString, DbgCheckByteString );

     OSL_ENSURE(false, "ByteString::ToFloat unusable");
  return 0;
}

float SAL_CALL rtl_ustr_toFloat(sal_Unicode const * pStr)
{
     return (float) rtl_math_uStringToDouble(pStr,
                    pStr + rtl_ustr_getLength(pStr),
                    '.', 0, 0, 0);
}

sal_Int32 SAL_CALL rtl_ustr_valueOfFloat(sal_Unicode * pStr, float f)
{
     rtl_uString * pResult = NULL;
     sal_Int32 nLen;
     rtl_math_doubleToUString(
         &pResult, 0, 0, f, rtl_math_StringFormat_G,
         RTL_USTR_MAX_VALUEOFFLOAT - RTL_CONSTASCII_LENGTH("-x.E-xxx"), '.', 0,
         0, sal_True);
     nLen = pResult->length;
     OSL_ASSERT(nLen < RTL_USTR_MAX_VALUEOFFLOAT);
     rtl_copyMemory(pStr, pResult->buffer, (nLen + 1) * sizeof(sal_Unicode));
     rtl_uString_release(pResult);
     return nLen;
}

static inline bool icopyConstructFromElements(
  uno_Sequence ** ppSeq, void * pSourceElements,
  typelib_TypeDescriptionReference * pElementType,
  sal_Int32 nStartIndex, sal_Int32 nStopIndex,
  uno_AcquireFunc acquire,
  sal_Int32 nAlloc = -1 ) // >= 0 means (re)alloc memory for nAlloc elements
{
     uno_Sequence * pSeq = *ppSeq;
  switch (pElementType->eTypeClass)
  {
             ………………………………………….
……………………………………………
case typelib_TypeClass_FLOAT:
    if (nAlloc >= 0)
              pSeq = reallocSeq( pSeq, sizeof(float), nAlloc );
          if (pSeq != 0)
          {   
              ::rtl_copyMemory(
                 pSeq->elements + (sizeof(float) * nStartIndex),
                 (char *)pSourceElements + (sizeof(float) * nStartIndex),
                 sizeof(float) * (nStopIndex - nStartIndex) );
          }
   break;

…………………………………………………….
…………………………………………………….
default:
   OSL_ENSURE( 0, "### unexpected element type!" );
         pSeq = 0;
   break;
  }
      
     if (pSeq == 0)
     {
         OSL_ASSERT( nAlloc >= 0 ); // must have been an allocation failure
         return false;
     }
     else
     {
         *ppSeq = pSeq;
         return true;
     }
}

void CalcAOle::putValueToCell(int col, int row, double value)
{
IDispatch* pdispCurrentCell;
     getCellByPosition(col, row);
     pdispCurrentCell = Cell.pdispVal;
     VARIANT sStr;
     VariantInit(&sStr);
     /*sStr.vt = VT_R4;
     sStr.fltVal = value;*///float
     sStr.vt = VT_R8;
     sStr.dblVal = value;//double
     AutoWrap(DISPATCH_METHOD, NULL, pdispCurrentCell, L"setValue", 1, sStr);
     VariantClear(&sStr);
}