delphi string转16进制

Delphi中，将字符串转换为16进制的方法有很多种。下面是一种常见的实现方式：

function StringToHex(const AStr: string): string;
var
  i: Integer;
begin
  Result := '';
  for i := 1 to Length(AStr) do
    Result := Result + IntToHex(Ord(AStr[i]), 2);
end;

上述代码定义了一个名为`StringToHex`的函数，接受一个字符串作为输入，并返回将其转换为16进制的结果。函数通过遍历字符串的每个字符，将其转换为ASCII码值，再将其转换为2位的16进制字符串表示法，并依次拼接到最终结果中。

使用该函数进行示例调用：

var
  str: string;
  hexStr: string;
begin
  str := 'Hello World!';
  hexStr := StringToHex(str);
  ShowMessage(hexStr);
end;

上述示例中，我们定义了一个名为`str`的字符串变量，赋值为`'Hello World!'`。然后使用`StringToHex`函数将其转换为16进制表示的字符串，并将结果赋值给`hexStr`。最后，使用`ShowMessage`函数显示转换结果。

执行以上代码后，将显示类似`'48656C6C6F20576F726C6421'`的结果，该结果即为将字符串`'Hello World!'`转换为16进制表示的字符串。