把指针赋值给数组句柄的一个小问题 ( 积分: 50 )

Q

QSmile

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-25

• #1

把指针赋值给数组句柄的一个小问题
如：
var
buf:array of byte;
pointer;
begin
GetMem(P,255);
Buf := p;
ShowMessage(IntToStr(Length(Buf)));
FreeMem(p);


这样显示的不是 255 可以 262
为什么？？

 

Q

QSmile

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-25

• #2

把指针赋值给数组句柄的一个小问题
如：
var
buf:array of byte;
pointer;
begin
GetMem(P,255);
Buf := p;
ShowMessage(IntToStr(Length(Buf)));
FreeMem(p);


这样显示的不是 255 可以 262
为什么？？

 

C

cpj7406

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-25

• #3

var
buf:array of byte;
pointer;
const
C_Length = 255;
begin
GetMem(P, C_Length);
SetLength(buf, C_Length);
CopyMemory(buf, P, C_Length);
ShowMessage(IntToStr(Length(Buf)));
FreeMem(p);

 

C

chenybin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-25

• #4

确实这样，不过你要实现什么功能呢

var
buf:array of byte;
pointer;
begin
GetMem(P,255);
SetLength(P, 255);// 好像没用
Buf := p;
ShowMessage(IntToStr(Length(Buf)));
FreeMem(p);

 

H

harryduan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-31

• #5

cpj的代码有问题
[red]CopyMemory(buf, P, C_Length);[/red]
动态数组的首地址应该是@buf[0]
上面的代码应改为
[red]CopyMemory(@buf[0], P, C_Length)或move(p^,buf[0],C_Length);[/red]

 

A

app2001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-31

• #6

ShowMessage(IntToStr(sizeof(Buf)));
这样行不行？？？

 

T

tswhq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-01

• #7

GetMem(P,255)
申请255字节内存,数据不确定
Buf:= p
将buf[0]的地址指向p
ShowMessage(IntToStr(High(Buf))+' '+IntToStr(Low(Buf)));
FreeMem(p);

问题在此:
buf是有数据结构的
buf[0]-4=06 10 00 00 =262 这肯定不是巧合,它记录着buf的上下限


管杀不管埋

 

T

tswhq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-01

• #8

你的程序很不安全
FreeMem(p)
其实是释放的Buf的数据部分
但程序退出时还会释放Buf,这时会出错

 

Q

QSmile

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-03

• #9

多人接受答案了。