| 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 |
|---|