From 84af5e672b45de65e88ac78889d77abac6836f3e Mon Sep 17 00:00:00 2001
From: vsnijders <vsnijders@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Sat, 11 Aug 2007 21:11:20 +0000
Subject: [PATCH] rx: fix memleak

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@235 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/rx/rxdbgrid.pas | 6 +++++-
 components/rx/rxnew.pas    | 4 ++--
 2 files changed, 7 insertions(+), 3 deletions(-)

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;