TIdGopherMenuItem

type TIdGopherMenuItem = class(TCollectionItem)

protected

  FTitle: string;

  FItemType: char;

  FSelector: string;

  FServer: string;

  FPort: TIdPort;

  FGopherPlusItem: Boolean;

  FGopherBlock: TIdHeaderList;

  FViews: TStrings;

  FURL: string;

  FAbstract: TStrings;

  FAsk: TIdHeaderList;

  fAdminEmail: TIdEMailAddressItem;

  function GetLastModified;

  function GetOrganization;

  function GetLocation;

  function GetGeog;

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure DoneSettingInfoBlock; virtual;

  property Title: string; [rw]

  property ItemType: char; [rw]

  property Selector: string; [rw]

  property Server: string; [rw]

  property Port: TIdPort; [rw]

  property GopherPlusItem: Boolean; [rw]

  property GopherBlock: TIdHeaderList; [r]

  property URL: string; [r]

  property Views: TStrings; [r]

  property AAbstract: TStrings; [r]

  property LastModified: string; [r]

  property AdminEMail: TIdEMailAddressItem; [r]

  property Organization: string; [r]

  property Location: string; [r]

  property Geog: string; [r]

  property Ask: TIdHeaderList; [r]

end;

TIdGopherMenuItem

TObject