张志峰的博客

水滴石川,积少成多。

导航

2016年4月7日

摘要: //字符串转成16进制代码function strToHexStr(str:string):string;varc:char;ss:string;i:integer;beginwhile str<>'' do begin c:=str[1]; ss:=ss+format('%0x',[ord(c)] 阅读全文

posted @ 2016-04-07 15:16 ╰★张志峰★╮ 阅读(8863) 评论(0) 推荐(0)

摘要: //注意:Delphi2010以下版本默认的字符编码是ANSI,VS2010的默认编码是UTF-8,delphi版得到的字符串须经过Utf8ToAnsi()转码才能跟C#版得到的字符串显示结果一致。 //Delphi版: function HexToStr(str: string): string; 阅读全文

posted @ 2016-04-07 15:15 ╰★张志峰★╮ 阅读(887) 评论(0) 推荐(0)

摘要: // //16进制字符转整数,16进制字符与字符串转换中间函数// function HexToInt(hex: string): integer;var i: integer; function Ncf(num, f: integer): integer; var i: integer; begi 阅读全文

posted @ 2016-04-07 15:14 ╰★张志峰★╮ 阅读(12669) 评论(0) 推荐(0)