TIdReply

type TIdReply = class(TCollectionItem)

protected

  FCode: string;

  FFormattedReply: TStrings;

  FReplyTexts: TIdReplies;

  FText: TStrings;

  procedure AssignTo(); override;

  procedure CommonInit;

  function GetFormattedReplyStrings; virtual;

  function CheckIfCodeIsValid(); virtual;

  function GetDisplayName; override;

  function GetFormattedReply; virtual;

  function GetNumericCode;

  procedure SetCode();

  procedure SetFormattedReply(); virtual; abstract;

  procedure SetText();

  procedure SetNumericCode();

public

  procedure Clear; virtual;

  constructor Create(); override;

  constructor CreateWithReplyTexts(); virtual;

  destructor Destroy; override;

  class function IsEndMarker(); virtual;

  procedure RaiseReplyError; virtual; abstract;

  function ReplyExists; virtual;

  procedure SetReply();

  procedure UpdateText;

  property FormattedReply: TStrings; [rw]

  property NumericCode: Integer; [rw]

published

  property Code: string; [rw]

  property Text: TStrings; [rw]

end;

TIdReply

TObject