delphi - 如何将 TByte 转换为 RawByteString？

Question

在 Delphi 2009 中将声明为 TByte 的字节数组转换为 RawByteString 的最佳方法是什么？这段代码确实有效，也许有更快的方法(无循环):

   function Convert(Bytes: TBytes): RawByteString; 
   var
     I: Integer;
   begin
     SetLength(Result, Length(Bytes));
     for I := 0 to ABytes - 1 do
       Result[I + 1] := AnsiChar(Bytes[I]);
   end;

Answer 1

最好的方法是这样的:

function Convert(const Bytes: TBytes): RawByteString; inline;
begin
  SetString(Result, PAnsiChar(pointer(Bytes)), length(Bytes));
end;

并且不要忘记对字节参数使用 const，这样可以更快地生成代码。