CreateRegion方法吃掉了大量内存,有没有解决办法？

[chenyu2004]

小弟最近写了一个程序，在VB中运行完成后有大量的内存被吃掉，并且当关闭运行的程序后(即关闭程序的运行，但不退出VB)内存仍然被占用，除非连VB也退出，内存才被释放。后来小弟逐条语句测试最后发现是由于下面这个语句引起的。

do while ....
....
'下面这条语句在Mulipt中包含的点较多时会点用大量内存,在点较少时内存没有多大的变化
Set fnewFeature = Map1.FeatureFactory.CreateRegion(Mulipt, AreaStyle)
Map1.Layers(LayerName).AddFeature fnewFeature
Mulipt.RemoveAll
....
loop

由于每次循环Mulipt中都有不少点(可能会有上万个点，正常情况也是几千个)，所以循环结束后大量的内存被占用，请问怎样解决这个问题，小弟翻了不少资料，都没有找到解决办法，在MapInfo中能否解决此问题呢？请大家帮帮我。

[Rex_love_Burger]

帮你顶

[sailor_Song]

本回复纯属ding，如有雷同纯属巧合

[fontain]

试试
Set fnewFeature = Map1.FeatureFactory.CreateRegion(Mulipt, AreaStyle)
Map1.Layers(LayerName).AddFeature fnewFeature
Mulipt.RemoveAll
Set fnewFeature=Nothing

[zhoupu2004]

关注！帮顶！