TOPIC:

FUNCTION Start() AS VOID
LOCAL oObject AS SimpleClass
FOR LOCAL n := 1 AS INT UPTO 1000
    oObject := SimpleClass{n}
    oObject: DoSomeWorkWithIt()
    // all of the above 1000 objects are still alive in memory, until the GC kills them all together
NEXT

CLASS SimpleClass IMPLEMENTS IDisposable
    CONSTRUCTOR(nID AS INT)
        SELF:AllocateHugeAmountOfResources()
    DESTRUCTOR()
        SELF: Dispose()
    METHOD Dispose() AS VOID
        SELF:FreeHugeAmountOfResources()
END CLASS

FUNCTION Start() AS VOID
LOCAL oObject1,oObject2 AS SimpleClass
oObject1 := SimpleClass{1}
oObject2 := SimpleClass{2}
oObject1:DoSomeWorkWithIt()
oObject2:DoSomeWorkWithIt()

//
// <a lot of other code in here, having nothing to do with those objects>
//

// this line causes those two objects and their resources
// to still be kept alive till here by the Garbage Collector

? oObject1:GetResult() + oObject2:GetResult()

FUNCTION Start() AS VOID
LOCAL nResult AS INT
BEGIN USING VAR oObject1 := SimpleClass{1}
    oObject1:DoSomeWorkWithIt()
    nResult := oObject1:GetResult()
END USING
// The resources used by oObject1 have already been freed here, because
// Dispose() was automatically called from the BEGIN...END USING statement
// Also oObject1 is not visible here anymore, so it can not be used accidentally
// and the GC can also completely collect it

BEGIN USING VAR oObject2 := SimpleClass{2}
    oObject2:DoSomeWorkWithIt()
    nResult += oObject2:GetResult()
END USING
// same for oObject2, it can be collected now

// <a lot of other code in here, having nothing to do with those objects>