Delphi 字符串转十六进制

RAD Studio 10.2.3 测试√

---

procedure TForm_Tips.Button_StrToHexClick(Sender: TObject);

  function StrToHex(s: string): string;
  var
    i, j: Integer;
  begin
    Result := '';
    for i := 1 to Length(s) do
    begin
      j := Integer(s[i]);
      Result := Result + IntToHex(j, 2) + ' ';
    end;
  end;

begin
  Memo_Log.Lines.Add(StrToHex('小印_xy123'));
end;

---

一点点笔记，以便以后翻阅。