delphi – 什么是“Packed Now Forces Byte对齐记录”是什么意思?

前端之家收集整理的这篇文章主要介绍了delphi – 什么是“Packed Now Forces Byte对齐记录”是什么意思?前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
Delphi XE2的新功能包含 following

Packed Now Forces Byte Alignment of Records

If you have legacy code that uses the packed record type and you want
to link with an external DLL or with C++,you need to remove the word
“packed” from your code. The packed keyword now forces byte alignment,
whereas in the past it did not necessarily do this. The behavior
change is related to C++ alignment compatibility changes in Delphi
2009.

我不明白这个我正在努力解决这一点:而在过去,它并不一定这样做。我不能调和的是,我最了解的是,包装一直导致记录的字节对齐。任何人都可以给出一个不是字节对齐的打包记录的例子?显然这必须在一个较早的版本。

为什么文档说“如果你想链接一个外部DLL或C,你需要删除从你的代码打包的单词”?如果外部代码使用#pragma pack(1),那么如果打包超限,我们该怎么办?

$ ALIGN指令呢? {$ A1}和{$ A-}等同于包装,还是包装有一些额外的意义?

似乎我错过了一些东西,如果有人能解释这个话,会很感激。还是文档真的很差?

更新

我相信文档是指记录本身的对齐,而不是记录的布局。这是一个小程序显示使用打包在记录上强制将记录对齐为1。

program PackedRecords;
{$APPTYPE CONSOLE}
type
  TPackedRecord = packed record
    I: Int64;
  end;

  TPackedContainer = record
    B: Byte;
    R: TPackedRecord;
  end;

  TRecord = record
    I: Int64;
  end;

  TContainer = record
    B: Byte;
    R: TRecord;
  end;

var
  pc: TPackedContainer;
  c: TContainer;

begin
  Writeln(NativeInt(@pc.R)-NativeInt(@pc.B));//outputs 1
  Writeln(NativeInt(@c.R)-NativeInt(@c.B));//outputs 8
  Readln;
end.

这在Delphi 6,2010,XE和XE2 32位和XE 64位上产生相同的输出

解决方法

文档的最新更新已经删除了该问题所基于的所有文本。我的结论是,原文只是一个文档错误

猜你在找的Delphi相关文章