TIpProperty

type TIpProperty = class(TPersistent)

protected

  FReadOnly: Boolean;

  FBitArray: array [0..31] of Boolean;

  FValue: array [0..3] of Byte;

  FOnChange: TNotifyEvent;

  function GetAddressType;

  function GetAsBinaryString;

  function GetAsDoubleWord;

  function GetAsString;

  function GetBit();

  function GetByte();

  procedure SetAsBinaryString();

  procedure SetAsDoubleWord();

  procedure SetAsString();

  procedure SetBit();

  procedure SetByte();

  property IsReadOnly: Boolean; [rw]

public

  constructor Create; virtual;

  destructor Destroy; override;

  procedure SetAll(); virtual;

  procedure Assign(); override;

  property Bits []: Boolean; [rw]

  property AddressType: TIdIPAddressType; [r]

  property OnChange: TNotifyEvent; [rw]

published

  property Byte1: Byte; [rws]

  property Byte2: Byte; [rws]

  property Byte3: Byte; [rws]

  property Byte4: Byte; [rws]

  property AsDoubleWord: UInt32; [rws]

  property AsBinaryString: string; [rws]

  property AsString: string; [rw]

end;

TIpProperty

TObject