>>270
>>272さん　>>273-274さん
ご教授有難うございます。

int CharactersToBytes0(const AnsiString s, int posi)
{

WideString w;
AnsiString t;
w = (WideString)s;
t = (AnsiString)w.SubString(1, posi);
return t.Length();

}

int CharactersToBytes(const String s, int posi)
{

WideString w;
String t;
w = (WideString)s;
t = (String)w.SubString(1, posi);
return t.Length();

}