如何将16进制转换成String类型 急!急!急!急!急!急!急!
解决方案 »
- 中山大学黎培兴主讲的Delphi程序设计语言使用的是哪本教科书 谢谢帮忙
- 如何得到memo选中内容在第几行
- 有句柄 怎么关闭应用程序或窗体
- 在Directx编程中,使用全屏模式,在切换到windows时候发现窗体缩到了任务栏的上面,不是在任务栏上,好像该窗体成了Deskop的子窗体,请问如何
- 哪有整套DevExpress控件下载?
- 修改程序的图标
- 如何在delphi中能否嵌入用vc编的exe程序啊?比如说播放视频的程序
- DLL中的窗体如何与主窗体互相通信
- 一个SQL语句,高分等你拿,问题解决后立即给分!!
- 如何判断对象是属于某一类?
- 各位大哥紧急求救
- 我现在想做一个多线程访问多串口的程序,我一直没有做过这类的东西,有那位大哥做过,可否有个事例发给小弟,这个是我的邮箱ychj1978@163
function HexToDec(HexChar:string):byte;
var
DecH,DecL:Byte;
begin
if Length(HexChar) > 1 then
begin
if HexChar[1] in ['0'..'9'] then DecH:= ord(HexChar[1])-48
else DecH:=ord(HexChar[1])-55;
if HexChar[2] in ['0'..'9'] then DecL:= ord(HexChar[2])-48
else DecL:=ord(HexChar[2])-55;
Result:=DecH*10+DecL;
end
else begin
if HexChar[1] in ['0'..'9'] then DecL:= ord(HexChar[1])-48
else DecL:=ord(HexChar[1])-55;
Result:=DecL;
end;
end;
s:string
begin
s:=inttohex($ff);
end;