怎么把字符转换成16进制数?
高手指教一下吧。
高手指教一下吧。
解决方案 »
- 问个存储过程调用问题!
- delphi中打开word的问题
- delphi中文说明(重发)(提供,同时求助)
- 为什么我在form2里打开了一个opendialog后,在form1里的Tinifile打开不了了?
- 为何我使用ADOConnection,ADOTable,DataSource导入EXCEL数据到DBGRID时,
- OLE Error(国庆又要留港加班加班,极度郁闷Ing,散分散分。)
- 用report machine怎么将报表导出pdf文件? 急求!
- wfcxx
- 再问一个关于idhttp的get出错,而ie浏览正常的问题,各位兄弟帮帮忙!
- 关于QuickReport 中的 TQRLabel 怎么换不了行?
- 帮帮我。。。。。。。。。。。。。。。。。。。。。
- 为什么在控件面板中看不到tfileedit,tdirectorytree等控件
例:inttohex(strtoint('255',2)); //结果是FF
int GetHex(unsigned char *InStr,unsigned char *OuStr,int Len)
{
int i,j,tmp;
tmp=0;
for(i=0;i<Len;i++)
{
j=i*2;
tmp=(InStr[i]>>4)&0x0f;
if(tmp>9)
tmp=tmp+55;
else
tmp=tmp+48;
OuStr[j]=tmp;
tmp=InStr[i]&0x0f;
if(tmp>9)
tmp=tmp+55;
else
tmp=tmp+48;
OuStr[j+1]=tmp;
OuStr[j+2]='\0';
}
return 1;
}
TmpS: String;
TmpH: String;
I: Integer;
Begin
TmpS:= 'ABCD';
TmpH:= '';
For I:=1 To Length(TmpS) Do
TmpH:= TmpH + IntToHex(Ord(TmpS[I]), 2)
End;我真想不明白.你就不能通过1楼说的方法变通一下嘛.活学活用嘛.
showmessage(IntToHex(StrToInt('10'),2));