TpbProtoMessage

type TpbProtoMessage = class(TpbProtoNode)

protected

  FParentNode: TpbProtoNode;

  FName: RawByteString;

  FMessages: array of TpbProtoMessage;

  FFields: array of TpbProtoField;

  FEnums: array of TpbProtoEnum;

  FExtensionsMin: LongInt;

  FExtensionsMax: LongInt;

  function GetFieldCount;

  function GetField();

  function GetEnumCount;

  function GetEnum();

  function GetEnumByName();

  function GetMessageCount;

  function GetMessage();

  function GetMessageByName();

public

  constructor Create();

  destructor Destroy; override;

  property ParentNode: TpbProtoNode; [r]

  property Name: RawByteString; [rw]

  procedure AddField();

  property FieldCount: Integer; [r]

  property Field []: TpbProtoField; [r]

  function GetFieldByTagID();

  procedure AddEnum();

  property EnumCount: Integer; [r]

  property Enum []: TpbProtoEnum; [r]

  procedure AddMessage();

  property MessageCount: Integer; [r]

  property Msg []: TpbProtoMessage; [r]

  property ExtensionsMin: LongInt; [rw]

  property ExtensionsMax: LongInt; [rw]

  function ResolveValue(); override;

  function ResolveType(); override;

  function GetAsProtoString; override;

end;

TpbProtoMessage

TpbProtoNode

TObject