在C中用＃pragma pack(n)改变字节对齐方式，在delphi中如何实现。

[guchangchun]

譬如：
在C中
#pragma pack(4)
struct test
{
double x1;
int x2;
double x3;
}
#pragma pack()

在delphi中如何实现
record test=
begin
x1:Double;
x2:Integer;
x3:double;
end;

[梅青松]

test= packed record
x1:Double;
x2:Integer;
x3:double;
end;

[ICMGDCHN]

同上,用packed

[beyondtkl]

1. type tagRecord = packed record
ch: char;
end;
2. Project -> Options -> Compiler: Record field aligment :default is 8, you can change it to 1byte.
但是他這個是針對本工程裡所有的...而VC中可以 pack後 馬上pop 從而 可以控制任意區間內的設置.

[guchangchun]

谢谢，再问一下，那么设置按多少字节对齐那？
如在C中，pack(4)表示按4个字节对齐，在Delphi中 packed record=....end;表示是按多少字节对齐那。

[benbenliu]

我记得如果不加Packed Delphi是按自然边界对齐，加上Packed delphi就不加填料来对齐了，难道我记错了，不会吧？？

[ehom]

{$A4}

或者

Options中设置

上面那些GG们说的和你要的两回事

[民间导尿管]

{$A4}

[武稀松]

{$ALIGN 1}, {$ALIGN 2}, {$ALIGN 4}, {$ALIGN 8}
或者{$A1}, {$A2}, {$A4}, {$A8}

packed record=....end;是紧密对齐方式,就是1字节对齐