Delphi2009 String的问题(100)

  • 主题发起人 主题发起人 qqjm
  • 开始时间 开始时间
Q

qqjm

Unregistered / Unconfirmed
GUEST, unregistred user!
Delphi2009的String改为双字节了,原来的一些代码在2009下执行出错了。像下是一个写的2进制转16进制字符串的函数要怎么改才能好,最好能改到Delphi7 和2009可用。function BinToHexstr(buff :TbyteArray):string; var len:integer; p1,p2:PAnsiChar; begin len:= length(buff) ; setlength(result,len* 2); if len = 0 then exit; p1 := @buff[0]; p2 := @result[1]; binToHex(p1,p2,len); end;
 
string -> AnsiString
 
function BinToHexstr(buff :TbyteArray):string; var len,i,j:integer; hex: string; begin len:= length(buff) ; setlength(result,len* 2); if len = 0 then exit; j := 1; for i = LowBound(buff) to HighBound(buff) do begin hex := IntToHex(buff,2); result[j] := hex[1]; result[j+1] := hex[2]; j := j+2; end; end;
 
多人接受答案了。
 

Similar threads

I
回复
0
查看
771
import
I
S
回复
0
查看
1K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
911
SUNSTONE的Delphi笔记
S
I
回复
0
查看
657
import
I
S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
后退
顶部