如何将字符串转换为十六进制而不改变其长度？

Question

我将字符串转换为十六进制，但是当我转换时，十六进制代码有 2*length(string) 我可以这样做“字符串长度=十六进制字符串长度”吗？

我发现这段代码有效吗？

var
  fs: TFileStream;
  temp: Char;
  buffer: string;
  pBuffer: PAnsiChar;
  text: PAnsiChar;
begin
  fs := TFileStream.Create('file way', fmOpenRead or fmShareDenyNone);
  fs.Position := 0;
  while fs.Position < fs.Size do
  begin
    fs.Read(temp, 1); //buffer içine her defasında 1 byte gelir.
    buffer := buffer + temp;
  end;
  pBuffer := PAnsiChar(buffer);
  BinToHex(pBuffer, text, Length(buffer));
  Memo1.Text := text;
end;

Answer 1

执行此操作的唯一方法是以某种方式将字符映射到 4 位值并将其转换为十六进制。这意味着只有十六个值是可能的，所以，不，如果有超过十六种可能性，则不能以一般方式执行此操作。

八位值（或五到八位的任何长度）每个值需要两个十六进制数字。