paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 03:09:11 +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 begin
case FieldDef.DataType of case FieldDef.DataType of
ftUnknown : result := 0;
ftString, ftString,
ftGuid, ftGuid,
ftFixedChar: result := FieldDef.Size + 1; ftFixedChar: result := FieldDef.Size + 1;
@ -1692,6 +1693,9 @@ begin
ftTime, ftTime,
ftDate, ftDate,
ftDateTime : result := sizeof(TDateTime); ftDateTime : result := sizeof(TDateTime);
ftBytes : result := FieldDef.Size;
ftVarBytes : result := FieldDef.Size + 2;
ftVariant : result := sizeof(variant);
ftBlob, ftBlob,
ftMemo, ftMemo,
ftGraphic, ftGraphic,
@ -1702,7 +1706,8 @@ begin
ftOraBlob, ftOraBlob,
ftOraClob, ftOraClob,
ftWideMemo : result := sizeof(TBufBlobField) ftWideMemo : result := sizeof(TBufBlobField)
else Result := 10 else
DatabaseErrorFmt(SUnsupportedFieldType,[Fieldtypenames[FieldDef.DataType]]);
end; end;
{$IFDEF FPC_REQUIRES_PROPER_ALIGNMENT} {$IFDEF FPC_REQUIRES_PROPER_ALIGNMENT}
result:=Align(result,4); result:=Align(result,4);