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

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

#ifndef Idftplistparsetops20HPP
#define Idftplistparsetops20HPP

#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 <Idftplist.hpp>	// Pascal unit
#include <Idftplistparsebase.hpp>	// Pascal unit
#include <Idftplisttypes.hpp>	// Pascal unit
#include <Idobjs.hpp>	// Pascal unit
#include <Classes.hpp>	// Pascal unit

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

namespace Idftplistparsetops20
{
//-- type declarations -------------------------------------------------------
class DELPHICLASS TIdTOPS20FTPListItem;
class PASCALIMPLEMENTATION TIdTOPS20FTPListItem : public Idftplisttypes::TIdCreationDateFTPListItem 
{
	typedef Idftplisttypes::TIdCreationDateFTPListItem inherited;
	
public:
	#pragma option push -w-inl
	/* TIdCreationDateFTPListItem.Create */ inline __fastcall virtual TIdTOPS20FTPListItem(Classes::TCollection* AOwner) : Idftplisttypes::TIdCreationDateFTPListItem(AOwner) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TIdFTPListItem.Destroy */ inline __fastcall virtual ~TIdTOPS20FTPListItem(void) { }
	#pragma option pop
	
};


class DELPHICLASS TIdFTPLPTOPS20;
class PASCALIMPLEMENTATION TIdFTPLPTOPS20 : public Idftplistparsebase::TIdFTPListBase 
{
	typedef Idftplistparsebase::TIdFTPListBase inherited;
	
protected:
	#pragma option push -w-inl
	/* virtual class method */ virtual Idftplist::TIdFTPListItem* __fastcall MakeNewItem(Idftplist::TIdFTPListItems* AOwner) { return MakeNewItem(__classid(TIdFTPLPTOPS20), AOwner); }
	#pragma option pop
	/*         class method */ static Idftplist::TIdFTPListItem* __fastcall MakeNewItem(TMetaClass* vmt, Idftplist::TIdFTPListItems* AOwner);
	#pragma option push -w-inl
	/* virtual class method */ virtual bool __fastcall ParseLine(const Idftplist::TIdFTPListItem* AItem, const AnsiString APath = "") { return ParseLine(__classid(TIdFTPLPTOPS20), AItem, APath); }
	#pragma option pop
	/*         class method */ static bool __fastcall ParseLine(TMetaClass* vmt, const Idftplist::TIdFTPListItem* AItem, const AnsiString APath = "");
	
public:
	#pragma option push -w-inl
	/* virtual class method */ virtual AnsiString __fastcall GetIdent() { return GetIdent(__classid(TIdFTPLPTOPS20)); }
	#pragma option pop
	/*         class method */ static AnsiString __fastcall GetIdent(TMetaClass* vmt);
	#pragma option push -w-inl
	/* virtual class method */ virtual bool __fastcall CheckListing(Classes::TStrings* AListing, const AnsiString ASysDescript = "", const bool ADetails = true) { return CheckListing(__classid(TIdFTPLPTOPS20), AListing, ASysDescript, ADetails); }
	#pragma option pop
	/*         class method */ static bool __fastcall CheckListing(TMetaClass* vmt, Classes::TStrings* AListing, const AnsiString ASysDescript = "", const bool ADetails = true);
public:
	#pragma option push -w-inl
	/* TObject.Create */ inline __fastcall TIdFTPLPTOPS20(void) : Idftplistparsebase::TIdFTPListBase() { }
	#pragma option pop
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TIdFTPLPTOPS20(void) { }
	#pragma option pop
	
};


//-- var, const, procedure ---------------------------------------------------
#define TOPS20_VOLPATH_SEP ":<"
static const char TOPS20_DIRFILE_SEP = '\x3e';

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

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