pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

RxFPC: code refactor on TRxMemDataset

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3618 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2014-10-02 05:09:31 +00:00
parent 359f18e6a9
commit 3b69ec270c
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
components/rx/trunk/rxmemds.pas
View File

@ -264,7 +264,7 @@ type
implementation implementation
uses CustApp, rxdconst, LazUTF8, dbconst, Variants, math; uses CustApp, rxdconst, LazUTF8, dbutils, dbconst, Variants, math;
const const
ftBlobTypes = [ftBlob, ftMemo, ftGraphic, ftFmtMemo, ftParadoxOle, ftBlobTypes = [ftBlob, ftMemo, ftGraphic, ftFmtMemo, ftParadoxOle,
@ -1515,6 +1515,7 @@ begin
CheckDataTypes(FieldDefs); CheckDataTypes(FieldDefs);
CreateFields; CreateFields;
end; end;
(*
procedure AssignRecord(Source, Dest: TDataSet; ByName: Boolean); procedure AssignRecord(Source, Dest: TDataSet; ByName: Boolean);
var var
I: Integer; I: Integer;
@ -1544,7 +1545,7 @@ begin
end; end;
end; end;
end; end;
*)
function TRxMemoryData.LoadFromDataSet(Source: TDataSet; ARecordCount: Integer; function TRxMemoryData.LoadFromDataSet(Source: TDataSet; ARecordCount: Integer;
Mode: TLoadMode): Integer; Mode: TLoadMode): Integer;
var var