还是变量释放时出错. ( 积分: 5 )

H

handsome1234

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-05

• #1

先定义如下结构:
type
PMyList = ^AList;
AList = record
IncNumber,Count: Integer;
B_IndexDrop:Boolean;
end;

ARecord,BRecord: PMyList;
var
i,Int_Orig:integer;
具体调用时
New(ARecord);
for B := 0 to (MyList.Count - 1) do
begin
ARecord := MyList.Items;
if ARecord^.IncNumber=IncNumber_Temp then break;
end;

Int_Orig:=ARecord^.Count;//这句注释调下面一句就没问题
Dispose(ARecord);//否则异常，是什么问题阿？

 

H

handsome1234

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-05

• #2

先定义如下结构:
type
PMyList = ^AList;
AList = record
IncNumber,Count: Integer;
B_IndexDrop:Boolean;
end;

ARecord,BRecord: PMyList;
var
i,Int_Orig:integer;
具体调用时
New(ARecord);
for B := 0 to (MyList.Count - 1) do
begin
ARecord := MyList.Items;
if ARecord^.IncNumber=IncNumber_Temp then break;
end;

Int_Orig:=ARecord^.Count;//这句注释调下面一句就没问题
Dispose(ARecord);//否则异常，是什么问题阿？

 

H

handsome1234

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-05

• #3

问题解决了,是创建时的问题

 

D

duhai_lee

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-05

• #4

这种一般是你 调用了已经释放掉的资源或者 未创建的资源。

 

H

handsome1234

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-18

• #5

多人接受答案了。