rx: fix memleak

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@235 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
vsnijders
2007-08-11 21:11:20 +00:00
parent 38fdedb1cc
commit 84af5e672b
2 changed files with 7 additions and 3 deletions

View File

@ -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.

View File

@ -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;