Delphi 字符串转十六进制

最新推荐文章于 2023-04-09 20:28:45 发布

原创最新推荐文章于 2023-04-09 20:28:45 发布 · 6.7k 阅读

1 ·

CC 4.0 BY-SA版权

Delphi 专栏收录该内容

11 篇文章

订阅专栏

本文介绍了一种使用Delphi语言将字符串转换为16进制表示的方法。通过一个简单的函数StrToHex，文章展示了如何遍历字符串中的每个字符，并将其ASCII值转换为16进制形式。此外，还提供了一个按钮点击事件的例子，演示了如何在界面上应用该转换。

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;