paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-15 18:19:45 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Added some missing fieldtypes to bufdataset, Mantis #19930 (_safe patch)

Browse Source 
git-svn-id: trunk@19262 -
This commit is contained in:
marco 2011-09-28 07:50:29 +00:00
parent 4cf5e36ce7
commit 0db7b03ec0
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
packages/fcl-db/src/base/bufdataset.pas
View File

@ -1674,6 +1674,7 @@ function TCustomBufDataset.GetFieldSize(FieldDef : TFieldDef) : longint;
begin
case FieldDef.DataType of
ftUnknown : result := 0;
ftString,
ftGuid,
ftFixedChar: result := FieldDef.Size + 1;
@ -1692,6 +1693,9 @@ begin
ftTime,
ftDate,
ftDateTime : result := sizeof(TDateTime);
ftBytes : result := FieldDef.Size;
ftVarBytes : result := FieldDef.Size + 2;
ftVariant : result := sizeof(variant);
ftBlob,
ftMemo,
ftGraphic,
@ -1702,7 +1706,8 @@ begin
ftOraBlob,
ftOraClob,
ftWideMemo : result := sizeof(TBufBlobField)
else Result := 10
else
DatabaseErrorFmt(SUnsupportedFieldType,[Fieldtypenames[FieldDef.DataType]]);
end;
{$IFDEF FPC_REQUIRES_PROPER_ALIGNMENT}
result:=Align(result,4);