//---------------------------------------------------------------------------
AnsiString BinToInt(AnsiString sVal)
{
int iAcum = 0;
for (int iI = sVal.Length(), iJ = 0; iI > 0; iI--, iJ++)
{
if (sVal[iI] == '1')
{
iAcum += pow (2, iJ);
}
}
return String(iAcum);
}
//---------------------------------------------------------------------------
AnsiString IntToHex(AnsiString sVal)
{
int iRes = StrToInt(sVal);
int iMod;
AnsiString sHex = "";
char cChar;
do {
iMod = iRes % 16;
switch (iMod)
{
case 10: cChar = 'A'; break;
case 11: cChar = 'B'; break;
case 12: cChar = 'C'; break;
case 13: cChar = 'D'; break;
case 14: cChar = 'E'; break;
case 15: cChar = 'F'; break;
default: cChar = iMod;
}
sHex.Insert(String(cChar),1);
iRes /= 16;
} while(iRes > 9);
sHex.Insert(String(iRes),1);
return sHex;
}