TFieldPropDef

type TFieldPropDef = class(TCollectionItem)

protected

  procedure InitFromField(); virtual;

  procedure InitFromDDFieldDef(); virtual;

  procedure SetFieldType(); virtual;

  procedure SetPropName(); virtual;

public

  constructor Create(); override;

  procedure Assign(); override;

  function FieldPropDefs;

  function HasGetter; virtual;

  function HasSetter; virtual;

  function ObjPasTypeDef; virtual;

  function ObjPasReadDef; virtual;

  function ObjPasWriteDef; virtual;

published

  property Enabled: Boolean; [rw]

  property FieldName: string; [rw]

  property FieldType: TFieldType; [rw]

  property PropertyName: string; [rw]

  property PropertyType: TPropType; [rws]

  property PropertySize: Integer; [rw]

  property PropertyDef: string; [rw]

  property PropertyVisibility: TVisibility; [rw]

  property PropertyAccess: TPropAccess; [rw]

  property PropSetters: TPropSetters; [rw]

end;

TFieldPropDef

TObject