From eabb22bcd2ffb6551768cb66c312d7fd15508483 Mon Sep 17 00:00:00 2001 From: marco Date: Sat, 5 Mar 2011 00:07:31 +0000 Subject: * fix from mantis 17308 "memds" misses ftFixedChar when cloning a dataset field and ftDateTime when copying data. git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@17075 3ad0048d-3df7-0310-abae-a5850022a9f2 --- packages/fcl-db/src/memds/memds.pp | 2 ++ 1 file changed, 2 insertions(+) (limited to 'packages/fcl-db') diff --git a/packages/fcl-db/src/memds/memds.pp b/packages/fcl-db/src/memds/memds.pp index d109fd4547..cdb792d937 100644 --- a/packages/fcl-db/src/memds/memds.pp +++ b/packages/fcl-db/src/memds/memds.pp @@ -300,6 +300,7 @@ begin dt1:= FieldDefs.Items[FieldNo-1].Datatype; case dt1 of ftString: result:=FieldDefs.Items[FieldNo-1].Size+1; + ftFixedChar:result:=FieldDefs.Items[FieldNo-1].Size+1; ftBoolean: result:=SizeOf(Wordbool); ftFloat: result:=SizeOf(Double); ftLargeInt: result:=SizeOf(int64); @@ -964,6 +965,7 @@ begin ftInteger : F1.AsInteger:=F2.AsInteger; ftDate : F1.AsDateTime:=F2.AsDateTime; ftTime : F1.AsDateTime:=F2.AsDateTime; + ftDateTime : F1.AsDateTime:=F2.AsDateTime; end; end; Try -- cgit v1.2.1