Delphi StrToHexStr 字符串转换Hex

本文整理自网络，侵删。

 
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 编写服务程序的几点总结

Delphi controlcount和componentcount的区别

Delphi中使用词霸2005的动态库xdictgrb.dll实现屏幕取词

Delphi 执行cmd并取得返回值

Delphi读写文本文件 assignfile reset append

Delphi 根据字符串分隔符位置取值

Delphi 如何让 tgpimage 直接从流中加载图片?

用Delphi的rtti实现对象的xml持久化

Delphi 字符串中加入换行符slinebreak

Delphi做繁体简体转换

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

转载请注明出处：木庄网络博客 » Delphi StrToHexStr 字符串转换Hex