本文整理自网络,侵删。
//字符串转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;
相关阅读 >>
Delphi 进程通讯之wm_copydata 发送程序(senddata.exe)
Delphi 利用createservice写与桌面交互的win32服务
Delphi 正则表达式tperlregex 类的属性与方法
Delphi 把exe可执行文件等作为资源包含在Delphi编译文件中
更多相关阅读请进入《Delphi》频道 >>