关于指针的问题？(50分)

C

chuQingSheng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-31

• #1

function TBarClient.Add(AClientInfo: TClientInfo): Integer;
var
p ClientInfo;
begin
if FClientList.Count>=FMaxClientNum then Result :=E_BAR_OVERFLOW
else
begin
GetMem(p, SizeOf(AClientInfo));
p^ :=AClientInfo;
Result :=FClientList.Add(p);
end;
end;


其中， TclientInfo为一记录。 PClientInfo为指向此类型的指针。

但在 p^ :=AClientInfo;总是运行时出错， Write内存问题，为什么？

 

P

pdb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-31

• #2

杳AClientInfo是否為nil,如果是nil 則記錄類型沒有初始化或沒有值,
用setlength(AClientInfo,1);

 

L

leway

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-31

• #3

在使用 p^ :=AClientInfo;之前先 New(p);

 

H

homelee

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-31

• #4

应该这样写
function TBarClient.Add(AClientInfo: TClientInfo): Integer;
var
p ClientInfo;
begin
if FClientList.Count>=FMaxClientNum then Result :=E_BAR_OVERFLOW
else
begin
new(p);
copymemory(p,@AClientInfo,sizeof(TClientInfo))
Result :=FClientList.Add(p);
end;
end

 

C

chuQingSheng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-31

• #5

我的写法为什么有问题???
AClientInfo参数并不为NIL.

 

C

chuQingSheng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-31

• #6

TO homelee,这样虽然不出错,但COPY的也不对, 后面检索根本不对.

 

叮

叮叮当当

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-31

• #7

对于homelee的做法，TclientInfo类型中如果还包含数组或其他自定义类型这么做的话就会有问题。

 

C

chuQingSheng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-31

• #8

是的, 我也这么认为,且TClientInfo中的确有其它的record, 当然也不是这个问题, 定义中
String类型. 后来我用new(p);然后, p^ :=AClientInfo;解决了. 但不知上面的错在那?

 

L

leway

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-02

• #9

to: chuQingSheng
要找到答案，就要知道，New(p),和GetMem(p, SizeOf(AClientInfo))有什麼不同的地方。
我認為：new(p)，不僅配置了指針p指向的數據結構大小，而且也配置了數據的結構。
GetMem(p, SizeOf(AClientInfo)),向os要指定大小的內存區塊，將其地址指到指針變量p。但他沒有配置數據結構.

 

C

chuQingSheng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-02

• #10

也许吧, 我没有继续研究下去了. 大家分数吧