如何在Delphi-2007上将unicode字符串转换为字节数组，反之亦然

Question

在Delphi XE7中，我们使用以下命令将一些值从字符串转换为字节，从字节转换为字符串：

MyBytes := TEncoding.Unicode.GetBytes(MyString);

和

MyString := TEncoding.Unicode.GetString(MyBytes);

我想编写自己的函数，在Delphi-2007上得到相同的值。我真的不熟悉chars编码，我想我应该WideString在Delphi-2007中使用type （是吗？）

function StringToBytes(AValue : WideString) : TBytes;
begin
   Result := //...
end;

function BytesToString(AValue : TBytes) : WideString;
begin
   Result := //...
end;

有人可以帮我编写这两个功能吗？

Answer 1

由于a WideString是UTF-16编码的，并且您需要UTF-16编码的字节数组，因此不需要转换。您可以像这样执行直接内存复制：

function StringToBytes(const Value : WideString): TBytes;
begin
  SetLength(Result, Length(Value)*SizeOf(WideChar));
  if Length(Result) > 0 then
    Move(Value[1], Result[0], Length(Result));
end;    

function BytesToString(const Value: TBytes): WideString;
begin
  SetLength(Result, Length(Value) div SizeOf(WideChar));
  if Length(Result) > 0 then
    Move(Value[0], Result[1], Length(Value));
end;