paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

RxFPC:TMemDataset fix datasize for BCD fields

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@9284 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75 2024-03-21 05:48:02 +00:00
parent 7c414d3da5
commit d79d152f88
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/rx/trunk/rxdb/rxmemds.pas
View File

@ -360,7 +360,8 @@ begin
ftBoolean: Result := SizeOf(WordBool);
ftFloat: Result := SizeOf(Double);
ftCurrency: Result := SizeOf(Double);
ftBCD: Result := 34;
//ftBCD: Result := 34;
ftBCD: Result:=SizeOf(currency);
ftDate, ftTime: Result := SizeOf(Longint);
ftDateTime: Result := SizeOf(TDateTime);
ftBytes: Result := Size;