>procedure recursiveProc(someparam)

>var b: tbookmark;

>begin
>   dataset1.locate(....someparam...);
>   while not dataset1.eof do begin
>      ....
>      b:=dataset1.getbookmark;
>      recursiveproc(someparam);
>      dataset1.gotobookmark(b);
>      dataset1.freebookmark(b);
>      dataset1.next;
>   end;
>end;

> procedure recursiveProc(someparam)
> var b: tbookmark;
> begin
>    b:=dataset1.getbookmark;
>  Try
>    if dataset1.locate(....someparam...) then
>    begin
>      while not dataset1.eof do
>      begin
>         ....

>         recursiveproc(someparam);
>         dataset1.next;
>      end;
>    end;
>  Finally
>     dataset1.gotobookmark(b);
>     dataset1.freebookmark(b);
>  end;
> end;

> The difference here is, the Bookmark is created/fetched once and freed
> once and not many times within a loop and there is no guarantee that it
> would always be freed. What if for some odd reason an exception occurs
> either a silent one or otherwise. Test the above. The statement if
> ..Locate(....) is just me assuming you want to check for something
> before proceeding.
> I would like to know the results using he test routine proposed by me.
> HTH

> In article <39d0068b_1@dnews>, damian marquez <dmarque...@hotmail.com>
> writes
> >I have an app which opens up a form with 7 adodatasets.
> >One of them is of  "dmFile" commandtype ( I use it as temporary storage).
> >On opening, the app is taking 6mb memory. After clicking a button,
> >I run a procedure which opens the 7 adodatasets & does a recursive
process.
> >After that, my app is using up 17mb memory, and when closing the form,
> >I am still using that 17mb memory (if I reload the form I will be using
> >more...)
> >Any idea to help me....? Ah, the recursive call could also be a problem,
> >but I couldn't find any alternative. It looks like this:

> >procedure recursiveProc(someparam)

> >var b: tbookmark;

> >begin
> >   dataset1.locate(....someparam...);
> >   while not dataset1.eof do begin
> >      ....
> >      b:=dataset1.getbookmark;
> >      recursiveproc(someparam);
> >      dataset1.gotobookmark(b);
> >      dataset1.freebookmark(b);
> >      dataset1.next;
> >   end;
> >end;

> --
> Arnold Johnson

> > What exactly does the function you are calling within the loop actually
> > do. Have a second look at it and make sure you are not missing
> > something, like creating objects and not freeing them within a
> > Try...finally...end construct.

>The memory is recovered when the application ended just that during the app
>the mem usage can go way up... our mdi app was up to 64 meg. we got around
>this by sharing / pooling the connection object/s instead of creating a new
>one each time we needed it.

>rick

>"damian marquez" <dmarque...@hotmail.com> wrote in message
>news:39d13991_1@dnews...
>> Please see my new post: "ADO datasets not freeing lots of memory when
>> closed"...
>> The problem is not the recursive function but the ado resources not being
>> recovered when
>> the adodatasets are closed (not even after freeing the form)....
>> any idea about it?

>> > What exactly does the function you are calling within the loop actually
>> > do. Have a second look at it and make sure you are not missing
>> > something, like creating objects and not freeing them within a
>> > Try...finally...end construct.