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就没有此问题。请大家帮忙，查一下原因。