类型转换

转载 2007年09月12日 14:47:00

//char:String.c_str()
AnsiString TForm1::BCD_to_AnsiString(char * P_BCD, int length)
{
    //TODO: Add your source code here
    AnsiString returnstring = "";
    char high_char,low_char,temp;
    for( int i=0;i<length;i++ )
    {
        temp = *P_BCD++;
        high_char = (temp&0xf0)>>4;
        low_char = temp&0x0f;

        if( (high_char>=0x00)&&(high_char<=0x09) )
            high_char+=0x30;

        if( (high_char>=0x0A)&&(high_char<=0x0F) )
            high_char+=0x37;

        if( (low_char>=0x00)&&(low_char<=0x09) )
            low_char+=0x30;
        if( (low_char>=0x0A)&&(low_char<=0x0F) )
            low_char+=0x37;

        returnstring += AnsiString(high_char);
        returnstring += AnsiString(low_char);
        returnstring += " ";
    }
    return returnstring;
}


//-------------------------------------------------------------------------------------------------------------------------

AnsiString __fastcall TMenuForm::AnsiString_To_BCD( char * P_BCD, int length )
{
    AnsiString returnstring ;
    char high_char,low_char,temp;

    for( int i=0;i<length;i++ )
    {
        temp        =   *P_BCD++;
        high_char   =   (temp&0xf0)>>4;
        low_char    =   temp&0x0f;

        if(     (high_char>=0x00)
            &&  (high_char<=0x09)
          )
        {
            high_char+=0x30;
        }

        if(     (high_char>=0x0A)
            &&  (high_char<=0x0F)
          )
        {
            high_char+=0x37;
        }

        if(     (low_char>=0x00)
            &&  (low_char<=0x09)
          )
        {
            low_char+=0x30;
        }
        if(     (low_char>=0x0A)
            &&  (low_char<=0x0F)
          )
        {
            low_char+=0x37;
        }

        returnstring += AnsiString( high_char );
        returnstring += AnsiString( low_char );
    }
    return returnstring;
}
//------------------------------------------------------------------------------------------------------------------------------------------
//十进制转为BCD
int __fastcall TForm1::ConvertBCD(int dnum)
{
  int  bcdval=0;
  if( dnum>9999 || dnum < 0 )   return   -1;  
  bcdval   =   (( (dnum/1000)*16+(dnum%1000)/100)*16+(dnum%100)/10   )*16 + dnum%10;
  return   bcdval;  
}
//------------------------------------------------------------------------------------------------------------------------------------------
//BCD转十进制
StrToInt("0x"+BCD_String);
//--------------------------------------------------------------------------------------------------------------------------------------------
再附一个时间延迟函数
//---------------------------------------------------------------------------
//时间延迟函数,单位是毫秒
void __fastcall TForm1::Delay(DWORD DT)
{
    DWORD BeginTime;

    BeginTime = GetTickCount();
    do
    {
        Application->ProcessMessages();
    }while( GetTickCount() - BeginTime <= DT );
}
//-------------- 

SuperMap Objects.NET数据类型转换

  • 2017年12月15日 15:20
  • 9.69MB
  • 下载

数据库类型转换工具

  • 2016年07月14日 16:03
  • 2.06MB
  • 下载

黑马程序员-java中的类型转换

------Java培训、Android培训、iOS培训、.Net培训、期待与您交流! ------- 按照类型划分分为:基本数据类型的转换以及应用数据类型的转换。 一,基本数据类型的转换 ...

GMT时间与Data2-T类型转换

  • 2016年04月21日 16:36
  • 43KB
  • 下载

图像类型转换工具

  • 2015年07月21日 09:04
  • 110KB
  • 下载

SQL Server 与ORACLE数据类型转换对应关系

oracle 与 sql server 数据类型对应关系 sql serer 向oracle 转换对应关系

C++类型转换

  • 2017年09月08日 22:41
  • 2KB
  • 下载

C语言数据类型转换的探讨

  • 2015年05月06日 13:51
  • 290KB
  • 下载

c++ unsigned和int类型转换及运算

一、规则总结 1. 在c++中,如果赋值给无符号类型一个超过它表示范围的值(如负数),结果是初始值对无符号类型表示数值最大值取模后的余数。 2. 在c++中,如果表达式中同时有无符号类型和有符号类型,...

数据类型转换

  • 2013年05月03日 19:30
  • 22KB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:类型转换
举报原因:
原因补充:

(最多只允许输入30个字)