You've already forked lazarus-ccr
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:
@ -2099,8 +2099,12 @@ end;
|
|||||||
initialization
|
initialization
|
||||||
ExDBGridSortEngineList:=TStringList.Create;
|
ExDBGridSortEngineList:=TStringList.Create;
|
||||||
ExDBGridSortEngineList.Sorted:=true;
|
ExDBGridSortEngineList.Sorted:=true;
|
||||||
|
|
||||||
finalization
|
finalization
|
||||||
ExDBGridSortEngineList.Clear;
|
while (ExDBGridSortEngineList.Count>0) do begin
|
||||||
|
ExDBGridSortEngineList.Objects[0].Free;
|
||||||
|
ExDBGridSortEngineList.Delete(0);
|
||||||
|
end;
|
||||||
ExDBGridSortEngineList.Free;
|
ExDBGridSortEngineList.Free;
|
||||||
end.
|
end.
|
||||||
|
|
||||||
|
@ -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;
|
unit rxnew;
|
||||||
|
Reference in New Issue
Block a user