TPasProperty

type TPasProperty = class(TPasVariable)

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure FreeChildren(); override;

  function ElementTypeName; override;

  function GetDeclaration();

  procedure ForEachCall(); override;

  IndexExpr: TPasExpr;

  ReadAccessor: TPasExpr;

  WriteAccessor: TPasExpr;

  DispIDExpr: TPasExpr;

  Implements: TPasExprArray;

  StoredAccessor: TPasExpr;

  DefaultExpr: TPasExpr;

  ReadAccessorName: TPastreeString;

  WriteAccessorName: TPastreeString;

  ImplementsName: TPastreeString;

  StoredAccessorName: TPastreeString;

  DispIDReadOnly: Boolean;

  IsDefault: Boolean;

  IsNodefault: Boolean;

  property Args: TFPList; [r]

  property IsClass: Boolean; [rw]

  function ResolvedType;

  function IndexValue;

  function DefaultValue;

end;

TPasProperty

TPasVariable

TPasElement

TPasElementBase

TObject