[VNET 0004270]: Memoryleak in FindRange

[Ruslan Zasukhin]

On 5/24/09 12:48 PM, "Thomas Flemming" <tf at ttqv.com> wrote:

> Hi,
> 
> I'm using Dispose now:
> 
> resultSet = fldCat.FindRange(False, 0, e.max_cat, True)
> If resultSet IsNot Nothing Then
>      resultSet = fldSize.FindRange(True, e.min_size, 9999999, False,
> resultSet)
        
        WRONG !!

        you have not dispose first set, but assigned second set into
        resultSet.

> End If
> If resultSet IsNot Nothing Then
>      resultSet = fldEN.FindRange(False, e.south, 90 * di, False, resultSet)
> End If
> If resultSet IsNot Nothing Then
>      resultSet = fldES.FindRange(False, -90 * di, e.north, False, resultSet)
> End If
> If resultSet IsNot Nothing Then
>      resultSet = fldEW.FindRange(False, -180 * di, e.east, False, resultSet)
> End If
> If resultSet IsNot Nothing Then
>      resultSet = fldEE.FindRange(False, e.west, 180 * di, False, resultSet)
> End If
> If resultSet IsNot Nothing Then
>      c = CType(resultSet, IVSet).Count
>      ctotal += c
>      'resultIter = CType(resultSet, IVSet).MakeNewIterator
>      'mTblObjects.RecID = resultIter.FirstItem
>      'mTblObjectsData.RecID = resultIter.FirstItem
> 
>      resultSet.Dispose()
> 
> End If
> 
> This does not free the used memory, or am I using it wrong?

-- 
Best regards,

Ruslan Zasukhin
VP Engineering and New Technology
Paradigma Software, Inc

Valentina - Joining Worlds of Information
http://www.paradigmasoft.com

[I feel the need: the need for speed]