var
t:array[1..2] of char;
begin
bintohex(t,'10010001',2); //出錯
end;
我是菜菜
t:array[1..2] of char;
begin
bintohex(t,'10010001',2); //出錯
end;
我是菜菜
解决方案 »
- treeview的滚动条颜色怎么改呀?谢谢
- 是不是execsql之前的SQL语句不能带参数?
- --(小问题50分等看你)我用的是wise 为什么安装后出这个问题?(比较急)
- 蒙受大家的厚爱 批准我做DataBase的小版 以后大家多多的交流啊 特此散分
- 如何在打印完40页后停止打印,重新调整后再打印?或者说如何在打印完40页后跳出一个询问语句??
- 我单位要购买OA系统软件,请各位帮一下哪一种技术比较成熟?进来就有分
- GetSelection()到底什么意思啊??怎么用??
- DBGrid中怎样使用DateTimePicker,急,在线等待
- C++的函数指针VOID* 转换问题
- 关于RichEdit
- 请问如何得到...?
- 关于多个应用程序或者dll使用同一个数据库连接的问题,急!!!
procedure BinToHex(Buffer, Text: PChar; BufSize: Integer); assembler;
const
Convert: array[0..15] of Char = '0123456789ABCDEF';
var
I: Integer;
begin
for I := 0 to BufSize - 1 do
begin
Text[0] := Convert[Byte(Buffer[I]) shr 4];
Text[1] := Convert[Byte(Buffer[I]) and $F];
Inc(Text, 2);
end;
end;