DELPHI5 的BUG吗?(100分)

徐永进 · 2000-12-27

我在DELPHI5的企业版中,碰到如下情况:
type
tpstruc=record
i:integer;
name:array[1..8]of char;
x,y,z:double;
bz:char;
Ano:char;
end;
.......
var
p:tpstruc;
.......

showmessage(inttostrsizeof(p));

结果是48,在VC6.0中用struc是38;
当我用各个测试的时候,即
sizeof(p.i)----4;
sizeof(p.name)----8;
sizeof(p.x)-----8;
sizeof(p.y)-----8;
sizeof(p.z)-----8;
sizeof(p.bz)-----1;
sizeof(p.ano)-----1;
4+8+8+8+8+1+1=38<>48
怎么回事???

当i,name;x,y,z;bz,ano分别作为一组的时候是正确的!!!

polygon · 2000-12-27

这与Delphi的记录中各个字段对齐方式相关,
Delphi缺省使用按双字对齐的方式,如果想让
你的记录在Delphi和VC中具有同样的Size,也就是
按照字节对齐,需要在记录定义前加上packed关键字
也就是
type
tpstruc = packed record
.....
end;

BaKuBaKu · 2000-12-27

这样写就好了。原因在于 Delphi 和 VC 的字节对齐方式不同。

tpstruc=packed record
i:integer;
name:array[1..8]of char;
x,y,z:double;
bz:char;
Ano:char;
end;

inttostr(sizeof(p)) = 38

BaKuBaKu · 2000-12-27

Sorry ，贴子晚了，不是有意的。

delphisnail · 2000-12-30

牛，这么清楚

OopsWare · 2000-12-31

BUG是有的，但你的问题不是。
Delphi5的1＃补丁已有了！

总感觉有补丁的软件用起来才放心！

徐永进 · 2001-01-02

大家好!!我的问题已经解决!!
但是,尽管38是正确的,但是,当我
读用VC写的文件的时,还是错位!
后面的两个字节读不出来,还是错位!!
谢谢!

徐永进 · 2001-02-06

谢谢!!只是我的后两位还是没有办法!!
分数给你门了!!

徐永进 · 2001-02-09

多人接受答案了。

BaKuBaKu · 2001-02-18

;我想如果用流一次读入 38 个 Byte ，然后用 FillChar 或者 Move 批量填充结构变量
应该就好了，也就是说不一个一个地读写。
这样效率也高一些。

徐永进 · 2001-04-22

谢谢BAKUBAKU！

DELPHI5 的BUG吗?(100分)

徐永进

Unregistered / Unconfirmed

polygon

Unregistered / Unconfirmed

BaKuBaKu

Unregistered / Unconfirmed

BaKuBaKu

Unregistered / Unconfirmed

delphisnail

Unregistered / Unconfirmed

OopsWare

Unregistered / Unconfirmed

徐永进

Unregistered / Unconfirmed

徐永进

Unregistered / Unconfirmed

徐永进

Unregistered / Unconfirmed

BaKuBaKu

Unregistered / Unconfirmed

徐永进

Unregistered / Unconfirmed

Similar threads