Delphi 字符串转十六进制

版权声明:本文为博主原创文章,遵循 CC 4.0 BY-SA 版权协议,转载请附上原文出处链接和本声明。
本文链接:https://blog.csdn.net/SysProgram/article/details/8255950

mark一下。

//字符串转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;

procedure TForm1.Button2Click(Sender: TObject);
var
  des:string;
begin
  des := StrToHex(edit1.Text);
  edit2.Text := des;
end;


 

展开阅读全文

没有更多推荐了,返回首页