本文整理自网络,侵删。
function StrToHexStr(const S:string):string;
var
I:Integer;
begin
for I:=1 to Length(S) do
begin
if I=1 then
Result:=IntToHex(Ord(S[1]),2)
else Result:=Result+' '+IntToHex(Ord(S[I]),2);
end;
end;
相关阅读 >>
Delphi 关于xe10下indy发送字符串编码的问题
Delphi一个简单的多线程例子
download 和 http downloader 源码
Delphi 10.4 freeandnil 问题
Delphi vcl tmemo加速字符串读取
Delphi datasnap 初步入门使用总结
firemonkey 做 app 的界面设计方法研究
Delphi 给力版 getprocaddress
Delphi中判断webbrowser的页面是否加载完成
Delphi共享软件防破解的实用方法
更多相关阅读请进入《Delphi》频道 >>
转载请注明出处:木庄网络博客 » Delphi StrToHexStr 字符串转换Hex