delphi - 字节绝对字符串数组:为64位Windows编译时内容不正确

如果我为64位Windows编译，则我的字节数组没有正确的输入值。
如果我为x32-Windows编译此过程，则值是正确的。

谁能帮我？

procedure doAnything(AText: String); //for example "<xml><s name="hello"/></xml>"
var
  myArray:array of Byte absolute AText;
begin
  ... (* myArray for x32: correct Length and Values (60, 0, 120, 0, 109, 0, ...) *)
  ... (* myArray for x64: Length: 2 (60, 0) *)
end

最佳答案

如果要以原始字节的形式访问String的字符数据，则必须使用类型转换，请勿使用absolute，因为String的内存布局与动态数组不兼容，正如其他人向您指出的那样：

procedure doAnything(AText: String);
var
  myBytes: PByte;
  myBytesLen: Integer;
begin
  myBytes := PByte(PChar(AText));

  myBytesLen := ByteLength(AText);
  // or: myBytesLen := Length(AText) * SizeOf(Char);

  // use myBytes up to myBytesLen as needed...
end;

如果您真的想使用absolute，则必须像这样使用它：

procedure doAnything(AText: String);
var
  myChars: PChar;
  myBytes: PByte absolute myChars;
  myBytesLen: Integer;
begin
  myChars := PChar(AText);

  myBytesLen := ByteLength(AText);
  // or: myBytesLen := Length(AText) * SizeOf(Char);

  // use myBytes up to myBytesLen as needed...
end;