TMetaNode

type TMetaNode = class(TObject)

protected

  function GetName; virtual;

public

  constructor Create(); virtual;

  constructor CreateFromStream(); virtual;

  destructor Destroy; override;

  class function NodeClass; virtual;

  class function NodeType; virtual;

  procedure SaveToStream(); virtual;

  procedure SaveToDDLNode(); virtual;

  procedure SaveToDDL(); virtual;

  procedure RegisterDependent();

  procedure RegisterDependedOn();

  function GetNodes();

  function GetDatabase;

  function MetaQuote();

  property Name: string; [r]

  property AsDDL: string; [r]

  property AsDDLNode: string; [r]

  property AsFullDDL: string; [r]

  property AsFullDDLNode: string; [r]

  property NodeCount: Integer; [r]

  property Nodes []: TNodeItem; [r]

  property Parent: TMetaNode; [r]

  property Data: Pointer; [rw]

  property DependentCount: Integer; [r]

  property Dependent []: TMetaNode; [r]

  property DependedOnCount: Integer; [r]

  property DependedOn []: TMetaNode; [r]

end;

TMetaNode

TObject