StrToHex

最新推荐文章于 2022-04-19 21:10:10 发布

seagull327

最新推荐文章于 2022-04-19 21:10:10 发布

阅读量1k

点赞数

分类专栏：字符串文章标签： function string

本文链接：https://blog.csdn.net/haiou327/article/details/6542067

版权

字符串专栏收录该内容

14 篇文章 0 订阅

订阅专栏

function strTohex(sChr: string): string;
var
  i, d: integer;
begin
  d := 0;
  for i := 1 to Length(sChr) do
  begin if Ord(schr[i]) > 128 then
    begin
      d := d + 1;
      if d = 2 then
      begin
        d := 0;
        Result := Result + IntToHex(ord(schr[i]), 2) + ' ';
      end
      else
        Result := Result + IntToHex(ord(schr[i]), 2);
    end
    else
      Result := Result + IntToHex(ord(schr[i]), 2) + ' ';
  end;
end;