TPasElement

type TPasElement = class(TPasElementBase)

protected

  procedure ProcessHints(); virtual;

  procedure SetParent(); virtual;

public

  SourceFilename: string;

  SourceLinenumber: Integer;

  SourceEndLinenumber: Integer;

  Visibility: TPasMemberVisibility;

  constructor Create(); virtual;

  destructor Destroy; override;

  class function IsKeyWord();

  class function EscapeKeyWord();

  function FreeChild();

  procedure FreeChildList();

  procedure FreeChildArray();

  procedure FreeChildren(); virtual;

  procedure ForEachCall(); virtual;

  procedure ForEachChildCall(); virtual;

  function SafeName; virtual;

  function FullPath;

  function ParentPath;

  function FullName; virtual;

  function PathName; virtual;

  function GetModule;

  function ElementTypeName; virtual;

  function HintsString;

  function GetDeclaration(); virtual;

  procedure Accept(); override;

  procedure ClearTypeReferences(); virtual;

  function HasParent();

  property Name: string; [rw]

  property Parent: TPasElement; [rw]

  property Hints: TPasMemberHints; [rw]

  property HintMessage: string; [rw]

  property DocComment: string; [rw]

end;

TPasElement

TPasElementBase

TObject