Переход с Borland C++ Builder 6.0 на Abrakadabra C++++ XE

namespace LText
{
 
UnicodeString s2us(std::string str);
 
std::string us2s(UnicodeString ustr);
 
}

UnicodeString LText::s2us(string str)
{
    UnicodeString ustr;
    wchar_t *pwchar;
    int n, nbuf;
    
    nbuf=str.size()+1;
    pwchar=new wchar_t[nbuf];
    n=MultiByteToWideChar(CP_ACP,0,str.c_str(),-1,pwchar,nbuf);
    if (n>0)
        ustr=pwchar;
    else
        ustr=L"";
    delete[] pwchar;
    return ustr;
}
 
//==============================================================================
 
string LText::us2s(UnicodeString ustr)
{
    string str;
    char* pchar;
    int n, nbuf;
    
    nbuf=ustr.Length()+1;
    pchar=new char[nbuf];
    n=WideCharToMultiByte(CP_ACP,0,ustr.c_str(),-1,pchar,nbuf,NULL,NULL);
    if (n>0)
        str=pchar;
    else
        str="";
    delete[] pchar;
    return str;
}

//==========================
 
FILE *fp;
UnicodeString itsName;
string tmpString
float itsValue;
int nStr;
 
...
 
tmpString=us2s(itsName);
nStr=tmpString.size();
fwrite(&nStr,sizeof nStr,1,fp);
for (int i=0;i<nStr;i++)
  fwrite(&tmpString[i],sizeof tmpString[i],1,fp);
...
fwrite(&itsValue,sizeof itsValue,1,fp);
 
//==========================

//==========================
 
FILE *fp;
UnicodeString itsName;
string tmpString;
float itsValue;
int nStr;
 
...
 
fread(&nStr,sizeof nStr,1,fp);
tmpString.resize(nStr);
for (int i=0;i<nStr;i++)
  fread(&tmpString[i],sizeof tmpString[i],1,fp);
itsName=s2us(tmpString);
...
fread(&itsValue,sizeof itsValue,1,fp);
 
 
//==========================