An attempt at automating the process of releasing objects in Delphi without the need to use Try Finally blocks to free objects after their usage.

It utilizes a main class to collect objects created during usage and release them upon the destruction of the main object (for example, a TForm). It also allows using TAutoCollect, which is an interfaced class that enables the creation of simple to complex classes to be freed upon exiting the execution scope, similar to how interfaces work.

The idea behind this project is not to require the programmer to migrate their classes to an interface and to improve memory management. With the TAutoCollect class, it's possible to turn a simple class into something like a interface without implementing anything new.

-> Allow the TGargabeCollector to create objects for a specific 'owner' and enable releasing only the objects created for that owner

Add the folder where uGarbageCollector.pas is located to the Delphi library path or to your project's search path.

If you believe you can help improve this repository, please submit a PR, and I will review it. Any assistance is welcome.

• Tested in Delphi 11.0

I recommend using Delphi XE or better.

Object

uses uGarbageCollector

...

var
  LTest: TStringList;
begin
 LTest:= Garbage.Add<TStringList>(TStringList.Create);
 ...
 ...
 ...
 ... 
end;

LTest will be released when Garbage is destroyed

var
  LTest: TStringList;
begin
  LTest:= Garbage.Add<TStringList>(TStringList.Create);
  try
    LTest.Add('This');
    LTest.Add('is a');
    Ltest.Add('test with collect');
    Showmessage(LTest.Text);
  finally
    Garbage.Collect(LTest);
  end;
end;

With input parameters in the create of the class to be collected

begin
  FTestClass:= Garbage.Add<TMyClass>(TMyClass.Create('with input params'));
end;

Example of how to use the TAutoCollect class

var
  LLocal: TMyClass;
begin
  LLocal:= TAutoCollect<TMyClass>.New(TMyClass.Create).GetInstance;
  LLocal.FParam:= 'test'; 
  Showmessage(LLocal.FParam);  
  
 //LLocal its destroyed here
end;

In the 'sample' folder, there are more usage examples