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;

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

1 个答案: