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

Question

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

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

和

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

我想编写自己的函数，在 Delphi-2007 上产生相同的值。我真的不擅长字符编码，我想我应该使用 WideString 输入 Delphi-2007 （是吗？）

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;

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

How to convert unicode strings to bytes array and vice versa on Delphi-2007

string

delphi

unicode

encoding

delphi-2007