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

Question

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

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

和

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

我想写我自己的函数，在Delphi-2007上得到相同的值。我真的不擅长字符编码，我想我应该在Delphi-2007中使用WideString类型(对吗？)

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

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

有人能帮我写这两个函数吗？

Answer 1

由于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;