摘要:
//字符串转成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)
|
||
|
摘要:
//字符串转成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) |
||