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

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

#ifndef Idftplistparsestercomos390expHPP
#define Idftplistparsestercomos390expHPP

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

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

namespace Idftplistparsestercomos390exp
{
//-- type declarations -------------------------------------------------------
class DELPHICLASS TIdSterCommExpOS390FTPListItem;
class PASCALIMPLEMENTATION TIdSterCommExpOS390FTPListItem : public Idftplist::TIdFTPListItem 
{
	typedef Idftplist::TIdFTPListItem inherited;
	
protected:
	AnsiString FRecFormat;
	int FRecLength;
	int FBlockSize;
	
public:
	__property AnsiString RecFormat = {read=FRecFormat, write=FRecFormat};
	__property int RecLength = {read=FRecLength, write=FRecLength, nodefault};
	__property int BlockSize = {read=FBlockSize, write=FBlockSize, nodefault};
public:
	#pragma option push -w-inl
	/* TIdFTPListItem.Create */ inline __fastcall virtual TIdSterCommExpOS390FTPListItem(Classes::TCollection* AOwner) : Idftplist::TIdFTPListItem(AOwner) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TIdFTPListItem.Destroy */ inline __fastcall virtual ~TIdSterCommExpOS390FTPListItem(void) { }
	#pragma option pop
	
};


class DELPHICLASS TIdFTPLPSterCommExpOS390;
class PASCALIMPLEMENTATION TIdFTPLPSterCommExpOS390 : 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(TIdFTPLPSterCommExpOS390), 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(TIdFTPLPSterCommExpOS390), 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(TIdFTPLPSterCommExpOS390)); }
	#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(TIdFTPLPSterCommExpOS390), 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 TIdFTPLPSterCommExpOS390(void) : Idftplistparsebase::TIdFTPListBase() { }
	#pragma option pop
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TIdFTPLPSterCommExpOS390(void) { }
	#pragma option pop
	
};


//-- var, const, procedure ---------------------------------------------------
#define STIRCOMEXPOS390 "Connect:Express for OS/390"

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

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