root/trunk/FileInString.hpp

Revision 2, 1.9 kB (checked in by sagrer, 10 months ago)
  1. Вымаран старый механизм хранения версии в вендовом ресурсе.
  2. Подключен новый механизм хранения версии.
  3. Заодно подключены файлеги паскалевские, обеспечивающие этот самый механизм.
Line 
1 // Borland C++ Builder
2 // Copyright (c) 1995, 2002 by Borland Software Corporation
3 // All rights reserved
4
5 // (DO NOT EDIT: machine generated header) 'FileInString.pas' rev: 6.00
6
7 #ifndef FileInStringHPP
8 #define FileInStringHPP
9
10 #pragma delphiheader begin
11 #pragma option push -w-
12 #pragma option push -Vx
13 #include <Classes.hpp>  // Pascal unit
14 #include <Dialogs.hpp>  // Pascal unit
15 #include <Forms.hpp>    // Pascal unit
16 #include <SysUtils.hpp> // Pascal unit
17 #include <Windows.hpp>  // Pascal unit
18 #include <SysInit.hpp>  // Pascal unit
19 #include <System.hpp>   // Pascal unit
20
21 //-- user supplied -----------------------------------------------------------
22
23 namespace Fileinstring
24 {
25 //-- type declarations -------------------------------------------------------
26 class DELPHICLASS TFileInString;
27 class PASCALIMPLEMENTATION TFileInString : public System::TObject
28 {
29         typedef System::TObject inherited;
30        
31 public:
32         int OutputMessagesMode;
33         AnsiString FileString;
34         bool FirstLoaded;
35         __fastcall virtual TFileInString(void);
36         __fastcall virtual ~TFileInString(void);
37         int __fastcall Siz(void);
38         virtual bool __fastcall Load(const AnsiString FName);
39         void __fastcall Save(const AnsiString FName);
40         virtual void __fastcall MakNewFile(void);
41         void __fastcall AddChar(const char ch);
42         void __fastcall AddByte(const Byte bt);
43         AnsiString __fastcall ReadStr(const int FirstByte, const int BytesRead);
44         void __fastcall LoadFromResource(const char * ResName, const char * ResType);
45 };
46
47
48 //-- var, const, procedure ---------------------------------------------------
49 static const Shortint FIS_Output_none = 0x0;
50 static const Shortint FIS_Output_GUI = 0x1;
51 static const Shortint FIS_Output_Console = 0x2;
52
53 }       /* namespace Fileinstring */
54 using namespace Fileinstring;
55 #pragma option pop      // -w-
56 #pragma option pop      // -Vx
57
58 #pragma delphiheader end.
59 //-- end unit ----------------------------------------------------------------
60 #endif  // FileInString
Note: See TracBrowser for help on using the browser.