From 3b69ec270c45ae3bf1200962f19fc75cbf19e1f7 Mon Sep 17 00:00:00 2001
From: alexs75 <alexs75@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Thu, 2 Oct 2014 05:09:31 +0000
Subject: [PATCH] RxFPC: code refactor on TRxMemDataset

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3618 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/rx/trunk/rxmemds.pas | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/components/rx/trunk/rxmemds.pas b/components/rx/trunk/rxmemds.pas
index 9e77f4364..394f1e1f0 100644
--- a/components/rx/trunk/rxmemds.pas
+++ b/components/rx/trunk/rxmemds.pas
@@ -264,7 +264,7 @@ type
 implementation
 
 
-uses CustApp, rxdconst, LazUTF8, dbconst, Variants, math;
+uses CustApp, rxdconst, LazUTF8, dbutils, dbconst, Variants, math;
 
 const
   ftBlobTypes = [ftBlob, ftMemo, ftGraphic, ftFmtMemo, ftParadoxOle,
@@ -1515,6 +1515,7 @@ begin
   CheckDataTypes(FieldDefs);
   CreateFields;
 end;
+(*
 procedure AssignRecord(Source, Dest: TDataSet; ByName: Boolean);
 var
   I: Integer;
@@ -1544,7 +1545,7 @@ begin
     end;
   end;
 end;
-
+*)
 function TRxMemoryData.LoadFromDataSet(Source: TDataSet; ARecordCount: Integer;
   Mode: TLoadMode): Integer;
 var