Q
qqjm
Unregistered / Unconfirmed
GUEST, unregistred user!
Delphi2009的String改为双字节了,原来的一些代码在2009下执行出错了。像下是一个写的2进制转16进制字符串的函数要怎么改才能好,最好能改到Delphi7 和2009可用。function BinToHexstr(buff :TbyteArray):string; var len:integer; p1,p2AnsiChar; begin len:= length(buff) ; setlength(result,len* 2); if len = 0 then exit; p1 := @buff[0]; p2 := @result[1]; binToHex(p1,p2,len); end;