TIdTextModeResourceRecord

type TIdTextModeResourceRecord = class(TObject)

protected

  FAnswer: TIdBytes;

  FRRName: string;

  FRRDatas: TStrings;

  FTTL: Int32;

  FTypeCode: Integer;

  FTimeOut: string;

  function FormatQName();

  function FormatQNameFull();

  function FormatRecord();

  procedure SetRRDatas();

  procedure SetTTL();

public

  constructor CreateInit();

  destructor Destroy; override;

  property TypeCode: Integer; [r]

  property RRName: string; [rw]

  property RRDatas: TStrings; [rw]

  property TTL: Integer; [rw]

  property TimeOut: string; [rw]

  function ifAddFullName();

  function GetValue();

  procedure SetValue();

  function ItemCount;

  function BinQueryRecord(); virtual;

  function TextRecord(); virtual;

  procedure ClearAnswer;

end;

TIdTextModeResourceRecord

TObject