// Borland C++ Builder
// Copyright (c) 1995, 2005 by Borland Software Corporation
// All rights reserved

// (DO NOT EDIT: machine generated header) 'Idemailaddress.pas' rev: 10.00

#ifndef IdemailaddressHPP
#define IdemailaddressHPP

#pragma delphiheader begin
#pragma option push
#pragma option -w-      // All warnings off
#pragma option -Vx      // Zero-length empty class member functions
#pragma pack(push,8)
#include <System.hpp>	// Pascal unit
#include <Sysinit.hpp>	// Pascal unit
#include <Idexception.hpp>	// Pascal unit
#include <Idsys.hpp>	// Pascal unit
#include <Idobjs.hpp>	// Pascal unit
#include <Classes.hpp>	// Pascal unit

//-- user supplied -----------------------------------------------------------

namespace Idemailaddress
{
//-- type declarations -------------------------------------------------------
class DELPHICLASS EIdEmailParseError;
class PASCALIMPLEMENTATION EIdEmailParseError : public Idexception::EIdException 
{
	typedef Idexception::EIdException inherited;
	
public:
	#pragma option push -w-inl
	/* EIdException.Create */ inline __fastcall virtual EIdEmailParseError(AnsiString AMsg)/* overload */ : Idexception::EIdException(AMsg) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* Exception.CreateFmt */ inline __fastcall EIdEmailParseError(const AnsiString Msg, System::TVarRec const * Args, const int Args_Size) : Idexception::EIdException(Msg, Args, Args_Size) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateRes */ inline __fastcall EIdEmailParseError(int Ident)/* overload */ : Idexception::EIdException(Ident) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateResFmt */ inline __fastcall EIdEmailParseError(int Ident, System::TVarRec const * Args, const int Args_Size)/* overload */ : Idexception::EIdException(Ident, Args, Args_Size) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateHelp */ inline __fastcall EIdEmailParseError(const AnsiString Msg, int AHelpContext) : Idexception::EIdException(Msg, AHelpContext) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateFmtHelp */ inline __fastcall EIdEmailParseError(const AnsiString Msg, System::TVarRec const * Args, const int Args_Size, int AHelpContext) : Idexception::EIdException(Msg, Args, Args_Size, AHelpContext) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateResHelp */ inline __fastcall EIdEmailParseError(int Ident, int AHelpContext)/* overload */ : Idexception::EIdException(Ident, AHelpContext) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateResFmtHelp */ inline __fastcall EIdEmailParseError(System::PResStringRec ResStringRec, System::TVarRec const * Args, const int Args_Size, int AHelpContext)/* overload */ : Idexception::EIdException(ResStringRec, Args, Args_Size, AHelpContext) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~EIdEmailParseError(void) { }
	#pragma option pop
	
};


class DELPHICLASS TIdEMailAddressItem;
class PASCALIMPLEMENTATION TIdEMailAddressItem : public Classes::TCollectionItem 
{
	typedef Classes::TCollectionItem inherited;
	
protected:
	AnsiString FAddress;
	AnsiString FName;
	AnsiString __fastcall GetText();
	void __fastcall SetText(AnsiString AText);
	AnsiString __fastcall ConvertAddress();
	AnsiString __fastcall GetDomain();
	void __fastcall SetDomain(const AnsiString ADomain);
	AnsiString __fastcall GetUsername();
	void __fastcall SetUsername(const AnsiString AUsername);
	
public:
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	__fastcall TIdEMailAddressItem(void)/* overload */;
	__fastcall virtual TIdEMailAddressItem(Classes::TCollection* aCollection)/* overload */;
	__fastcall TIdEMailAddressItem(AnsiString aText)/* overload */;
	
__published:
	__property AnsiString Address = {read=FAddress, write=FAddress};
	__property AnsiString Name = {read=FName, write=FName};
	__property AnsiString Text = {read=GetText, write=SetText};
	__property AnsiString Domain = {read=GetDomain, write=SetDomain};
	__property AnsiString User = {read=GetUsername, write=SetUsername};
public:
	#pragma option push -w-inl
	/* TCollectionItem.Destroy */ inline __fastcall virtual ~TIdEMailAddressItem(void) { }
	#pragma option pop
	
};


class DELPHICLASS TIdEMailAddressList;
class PASCALIMPLEMENTATION TIdEMailAddressList : public Classes::TOwnedCollection 
{
	typedef Classes::TOwnedCollection inherited;
	
public:
	TIdEMailAddressItem* operator[](int Index) { return Items[Index]; }
	
protected:
	HIDESBASE TIdEMailAddressItem* __fastcall GetItem(int Index);
	HIDESBASE void __fastcall SetItem(int Index, const TIdEMailAddressItem* Value);
	AnsiString __fastcall GetEMailAddresses();
	void __fastcall SetEMailAddresses(AnsiString AList);
	
public:
	__fastcall TIdEMailAddressList(Classes::TPersistent* AOwner);
	void __fastcall FillTStrings(Classes::TStrings* AStrings);
	HIDESBASE TIdEMailAddressItem* __fastcall Add(void);
	void __fastcall GetDomains(Classes::TStrings* AStrings);
	void __fastcall SortByDomain(void);
	void __fastcall AddressesByDomain(TIdEMailAddressList* AList, const AnsiString ADomain);
	__property TIdEMailAddressItem* Items[int Index] = {read=GetItem, write=SetItem/*, default*/};
	__property AnsiString EMailAddresses = {read=GetEMailAddresses, write=SetEMailAddresses};
public:
	#pragma option push -w-inl
	/* TCollection.Destroy */ inline __fastcall virtual ~TIdEMailAddressList(void) { }
	#pragma option pop
	
};


//-- var, const, procedure ---------------------------------------------------

}	/* namespace Idemailaddress */
using namespace Idemailaddress;
#pragma pack(pop)
#pragma option pop

#pragma delphiheader end.
//-- end unit ----------------------------------------------------------------
#endif	// Idemailaddress
