[lazarus] In DB.pas not found this property property DataType: TFieldType read FDataType write SetDataType;

[v.scozzaro]

Append this property
    property DataType: TFieldType read FDataType write SetDataType;
in db.pas
 

This collection
   TFieldDef = class(TCollectionItem)
 Private
   FDataType : TFieldType; 
   :
   :
 Published
   property Attributes: TFieldAttributes read FAttributes write 
SetAttributes default [];
   property Name: string read FName write FName; // Must move to TNamedItem
   property DisplayName : string read FDisplayName write FDisplayName; 
// Must move to TNamedItem

   //Is OK - not found in db.pas
   property DataType: TFieldType read FDataType write SetDataType;

   property Precision: Longint read FPrecision write SetPrecision;
   property Size: Word read FSize write SetSize;
 end;

Tanks




_________________________________________________________________
    To unsubscribe: mail [EMAIL PROTECTED] with
               "unsubscribe" as the Subject
  archives at http://www.lazarus.freepascal.org/mailarchives