在Delph中如何Byte转化Sring
解决方案 »
- 如何快速拷贝两个数据集(Dataset)之间大量数据?
- 求wise 安装delphi6.0 access 安装包方法
- 如何加序号列?
- 关于Delphi时间加减问题,紧急求助啊
- 线程
- 有关Excel的对齐方式设置的问题
- Application.Run时窗体显示问题?高手解疑>
- 如何在一个QickRep报表里打印两个adoquery查询出来的结果,都有各自的表头!
- 请问那位大侠知道,在访问内存时,得到了数组的句柄,怎样才能知道这个数组的大小!
- float类型数据四舍五入的函数?
- 为什么用delphi做的浏览器,在打开一个有activex的网页时,无法显示提示信息,而ie却可以
- 如何HOOK自身的系统API?
a:byte;
s:string;
begin
s:=chr(a);
end
function ByteToHex(Src: Byte):String;
begin
SetLength(Result, 2);
asm
MOV EDI, [Result]
MOV EDI, [EDI]
MOV AL, Src
MOV AH, AL // Save to AH
SHR AL, 4 // Output High 4 Bits
ADD AL, "0"
CMP AL, "9"
JBE @@OutCharLo
ADD AL, "A"-"9"-1
@@OutCharLo:
AND AH, $f
ADD AH, "0"
CMP AH, "9"
JBE @@OutChar
ADD AH, "A"-"9"-1
@@OutChar:
STOSW
end;
end;