diff --git a/components/rx/rxdbgrid.pas b/components/rx/rxdbgrid.pas index 2ccbd74d4..5e4c43ede 100644 --- a/components/rx/rxdbgrid.pas +++ b/components/rx/rxdbgrid.pas @@ -2099,8 +2099,12 @@ end; initialization ExDBGridSortEngineList:=TStringList.Create; ExDBGridSortEngineList.Sorted:=true; + finalization - ExDBGridSortEngineList.Clear; + while (ExDBGridSortEngineList.Count>0) do begin + ExDBGridSortEngineList.Objects[0].Free; + ExDBGridSortEngineList.Delete(0); + end; ExDBGridSortEngineList.Free; end. diff --git a/components/rx/rxnew.pas b/components/rx/rxnew.pas index 52ed366bb..95b4336ad 100644 --- a/components/rx/rxnew.pas +++ b/components/rx/rxnew.pas @@ -1,5 +1,5 @@ -{ Этот файл был автоматически создан Lazarus. Не редактировать! -Исходный код используется только для компиляции и установки пакета. +{ This file was automatically created by Lazarus. Do not edit! +This source is only used to compile and install the package. } unit rxnew;