TpbProtoField

type TpbProtoField = class(TpbProtoNode)

protected

  FParentMessage: TpbProtoMessage;

  FName: RawByteString;

  FFieldType: TpbProtoFieldType;

  FCardinality: TpbProtoFieldCardinality;

  FTagID: LongInt;

  FDefaultValue: TpbProtoLiteral;

  FOptionPacked: Boolean;

  FOptions: array of TpbProtoOption;

  procedure SetFieldType();

  procedure SetDefaultValue();

public

  constructor Create();

  destructor Destroy; override;

  property ParentMessage: TpbProtoMessage; [r]

  property Name: RawByteString; [rw]

  property FieldType: TpbProtoFieldType; [rw]

  property Cardinality: TpbProtoFieldCardinality; [rw]

  property TagID: LongInt; [rw]

  property DefaultValue: TpbProtoLiteral; [rw]

  property OptionPacked: Boolean; [rw]

  procedure AddOption();

  function GetOptionCount;

  function GetOption();

  function ResolveValue(); override;

  function ResolveType(); override;

  function GetAsProtoString; override;

end;

TpbProtoField

TpbProtoNode

TObject