xsnippet logotype

xsnippet

#362798, Untitled [ Text only ]

by Guest
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
  TFullNodeAddress = record
  private
    fFull : U32;

    function GetEcuAddress : TNodeAddress;
    function GetProtocolId : U8;
    function GetReserved : U8;

    procedure SetEcuAddress(const aNodeAddress : TNodeAddress);
    procedure SetProtocolId(const aProtocolId : U8);
    procedure SetReserved(const aReserved : U8);

  public
    property Full       : U32 read fFull write fFull;
    property EcuAddress : TNodeAddress read GetEcuAddress write SetEcuAddress;
    property ProtocolId : U8 read GetProtocolId write SetProtocolId;
    property Reserved   : U8 read GetReserved write SetReserved;
  end;