D
dyzgd
Unregistered / Unconfirmed
GUEST, unregistred user!
type tobject2 = record
name: string[100];
id: integer;
x: integer;
y: integer;
end;
var object2: array[0..1000] of tobject2; //全局变量
在过程中会一直给该数组变量贬值,现在问题出现了,但程序运行20分钟左右后,用内存清理的程序发现,可用内存为0,清理后才正常,也就是说我这个程序会产生大量的内存碎片,不知道是什么原因,在XP就没有此问题。请大家帮忙,查一下原因。
name: string[100];
id: integer;
x: integer;
y: integer;
end;
var object2: array[0..1000] of tobject2; //全局变量
在过程中会一直给该数组变量贬值,现在问题出现了,但程序运行20分钟左右后,用内存清理的程序发现,可用内存为0,清理后才正常,也就是说我这个程序会产生大量的内存碎片,不知道是什么原因,在XP就没有此问题。请大家帮忙,查一下原因。