TIdLongWord

type TIdLongWord = class(TIdUnion)

protected

  function Get_l;

  function Gets_b1;

  function Gets_b2;

  function Gets_b3;

  function Gets_b4;

  function Gets_w1;

  function Gets_w2;

  procedure Set_l();

  procedure Sets_b1();

  procedure Sets_b2();

  procedure Sets_b3();

  procedure Sets_b4();

  procedure SetS_w1();

  procedure SetS_w2();

public

  constructor Create; override;

  property s_b1: UInt8; [rw]

  property s_b2: UInt8; [rw]

  property s_b3: UInt8; [rw]

  property s_b4: UInt8; [rw]

  property s_w1: UInt16; [rw]

  property s_w2: UInt16; [rw]

  property s_l: UInt32; [rw]

end;

TIdLongWord

TIdUnion

TIdStruct

TObject