Delphi 极速字符串替换函数字符串转16进制


本文整理自网络,侵删。

 //字符串转16进制
function StrToHex(src:string): string;
var
  i: integer;
  des: string;
begin
   des := '';
   for i := 1 to Length(src) do
   begin
     des := des + IntToHex(Ord(src[i]),2) + ' ';
   end;
   Result := des;

end;

 

字符串转16进制,其它平台结果相同

//经测试,以下代码任意平台测试结果相同

function StrToHex2(AStr: string): string;

var

 Idx: Cardinal;

begin

  Result:='';

  for Idx := Low(AStr)to High(AStr)do begin

    Result:= Result + IntToHex(Ord(AStr[Idx]), 4);

  end;

end;

// 调用

procedure TForm1.Button1Click(Sender: TObject);

begin

  Showmessage(StrToHex2('你好中国'));

end;

相关阅读 >>

Delphii控件的安装和卸载方法

Delphi unicode 转 gbk

Delphi 数字转换成中文

Delphi获取其它进程窗口句柄的三种方法

Delphi 进程通讯之wm_copydata 发送程序(senddata.exe)

Delphi 利用createservice写与桌面交互的win32服务

Delphi 正则表达式tperlregex 类的属性与方法

indy10下的tidhttp控件获取源码乱码的解决方法

Delphi 把exe可执行文件等作为资源包含在Delphi编译文件中

Delphi xe并行编程:ttask

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...