TTMSFNCPersistence Memory Leak

FNC TMS FNC Core
1

There is a memory leak in function
class function TTMSFNCPersistence.GetGenericListType(AClass: TClass): TClass;

    ...
    sl := TStringList.Create;
    try
      sl.Delimiter := '.';
      sl.DelimitedText := fn;

      while sl.Count > 0 do
      begin
        fn := sl.DelimitedText;
        p := GetClass(fn);
        if Assigned(p) then
          Exit(p);

        sl.Delete(0);
      end;

    finally
      sl.Free;  //Added * Filippone 03/01/2024
    end;
    ...

In my source I added sl.free

2

Hi,

Thanks for reporting, we have fixed the issue, next version will have this fix included.