// Borland C++ Builder // Copyright (c) 1995, 2002 by Borland Software Corporation // All rights reserved // (DO NOT EDIT: machine generated header) 'VerInfoTxtFormat.pas' rev: 6.00 #ifndef VerInfoTxtFormatHPP #define VerInfoTxtFormatHPP #pragma delphiheader begin #pragma option push -w- #pragma option push -Vx #include // Pascal unit #include // Pascal unit #include // Pascal unit #include // Pascal unit #include // Pascal unit #include // Pascal unit #include // Pascal unit //-- user supplied ----------------------------------------------------------- namespace Verinfotxtformat { //-- type declarations ------------------------------------------------------- class DELPHICLASS TVerInfoTxtFormat; class PASCALIMPLEMENTATION TVerInfoTxtFormat : public System::TObject { typedef System::TObject inherited; private: int VerNum; void __fastcall ParseVerNum(AnsiString Buff); void __fastcall ParseStatus(AnsiString Buff); public: int Ver1; int Ver2; int Ver3; int Ver4; int Status; int RCNum; AnsiString ErrorMessage; __fastcall TVerInfoTxtFormat(void); __fastcall virtual ~TVerInfoTxtFormat(void); void __fastcall Clear(void); bool __fastcall Load(const AnsiString FileName); bool __fastcall Save(const AnsiString FileName); AnsiString __fastcall GenerateStatusString(const bool FullMode = false, const bool InFileFormat = false); AnsiString __fastcall GenerateVersionString(); AnsiString __fastcall GenerateVersionString_nosvn(); AnsiString __fastcall GenerateFNVersionString_nostatus(); AnsiString __fastcall GenerateFNVersionString(); AnsiString __fastcall GenerateShortVersionString(); AnsiString __fastcall GenerateShortVersionString_nosvn(); AnsiString __fastcall GenerateDotsVersionString(); bool __fastcall ReadFromStringEx(const AnsiString VerString, const AnsiString Separator); bool __fastcall ReadFromString(const AnsiString VerString); bool __fastcall ReadFromFNString(const AnsiString VerFNString); bool __fastcall IsSameVersion(TVerInfoTxtFormat* &AnotherVit); bool __fastcall IIsNewerThenOldVit(TVerInfoTxtFormat* &OldVit); }; //-- var, const, procedure --------------------------------------------------- static const Shortint VIT_FormatVersion = 0x1; static const Shortint VIT_Status_Unknown = 0xffffffff; static const Shortint VIT_Status_Alpha = 0x0; static const Shortint VIT_Status_Beta = 0x1; static const Shortint VIT_Status_ReleaseCandidat = 0x3; static const Shortint VIT_Status_Release = 0x4; } /* namespace Verinfotxtformat */ using namespace Verinfotxtformat; #pragma option pop // -w- #pragma option pop // -Vx #pragma delphiheader end. //-- end unit ---------------------------------------------------------------- #endif // VerInfoTxtFormat