Home Explore Help
Sign In
pascal
/
pas2js
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git
2
0
Fork 0
Files Issues 0 Wiki
Browse Source

* Let TBlobField descend of TField

michael 6 years ago
parent
66ab817361
commit
8619a9f296
1 changed files with 1 additions and 1 deletions
Unified View Show Diff Stats
  1. 1 1
      packages/fcl-db/db.pas

+ 1 - 1
packages/fcl-db/db.pas
View File 

@@ -662,7 +662,7 @@ type
 
   TBlobStreamMode = (bmRead, bmWrite, bmReadWrite);
 
   TBlobStreamMode = (bmRead, bmWrite, bmReadWrite);
 
 //  TBlobType = ftBlob..ftMemo;
 
 //  TBlobType = ftBlob..ftMemo;
 
 
 
-  TBlobField = class(TBinaryField)
 
+  TBlobField = class(TField)
 
   private
 
   private
 
     FModified : Boolean;
 
     FModified : Boolean;
 
     // Wrapper that retrieves FDataType as a TBlobType
 
     // Wrapper that retrieves FDataType as a TBlobType