| 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) 'ExtraFunctions.pas' rev: 6.00 |
|---|
| 6 |
|
|---|
| 7 |
#ifndef ExtraFunctionsHPP |
|---|
| 8 |
#define ExtraFunctionsHPP |
|---|
| 9 |
|
|---|
| 10 |
#pragma delphiheader begin |
|---|
| 11 |
#pragma option push -w- |
|---|
| 12 |
#pragma option push -Vx |
|---|
| 13 |
#include <StrUtils.hpp> // Pascal unit |
|---|
| 14 |
#include <Messages.hpp> // Pascal unit |
|---|
| 15 |
#include <crc_32.hpp> // Pascal unit |
|---|
| 16 |
#include <Registry.hpp> // Pascal unit |
|---|
| 17 |
#include <Windows.hpp> // Pascal unit |
|---|
| 18 |
#include <SysUtils.hpp> // Pascal unit |
|---|
| 19 |
#include <Classes.hpp> // Pascal unit |
|---|
| 20 |
#include <SysInit.hpp> // Pascal unit |
|---|
| 21 |
#include <System.hpp> // Pascal unit |
|---|
| 22 |
|
|---|
| 23 |
//-- user supplied ----------------------------------------------------------- |
|---|
| 24 |
|
|---|
| 25 |
namespace Extrafunctions |
|---|
| 26 |
{ |
|---|
| 27 |
//-- type declarations ------------------------------------------------------- |
|---|
| 28 |
//-- var, const, procedure --------------------------------------------------- |
|---|
| 29 |
static const bool DoDebugOutput = true; |
|---|
| 30 |
static const Shortint EnvPathAdd_User = 0x0; |
|---|
| 31 |
static const Shortint EnvPathAdd_Global = 0x1; |
|---|
| 32 |
extern PACKAGE char * __fastcall StrRPos(char * str1, char * str2); |
|---|
| 33 |
extern PACKAGE AnsiString __fastcall Parse(AnsiString &S, const AnsiString Separators); |
|---|
| 34 |
extern PACKAGE AnsiString __fastcall ParseTail(AnsiString &S, const AnsiString Separators); |
|---|
| 35 |
extern PACKAGE AnsiString __fastcall ParseNumericHead(AnsiString &S); |
|---|
| 36 |
extern PACKAGE bool __fastcall IsNumericStr(AnsiString Str); |
|---|
| 37 |
extern PACKAGE bool __fastcall IsVersionStr(AnsiString Str); |
|---|
| 38 |
extern PACKAGE bool __fastcall IsNewVersion(AnsiString OldVer, AnsiString NewVer); |
|---|
| 39 |
extern PACKAGE void __fastcall ParsePathString(const AnsiString PathString, Classes::TStringList* &PathStringList); |
|---|
| 40 |
extern PACKAGE AnsiString __fastcall CombinePathString(const Classes::TStringList* PathStringList); |
|---|
| 41 |
extern PACKAGE bool __fastcall EnvPathExists(const AnsiString PathStr, const bool CheckUser, const bool CheckGlobal); |
|---|
| 42 |
extern PACKAGE bool __fastcall EnvPathRemove(const AnsiString PathStr, const bool CheckUser, const bool CheckGlobal); |
|---|
| 43 |
extern PACKAGE bool __fastcall EnvPathAdd(const AnsiString PathStr, const int Target, const bool ForceRemoveDoubles = true, const bool ForceCreateLocal = false); |
|---|
| 44 |
extern PACKAGE AnsiString __fastcall TrimExLeft(const AnsiString InputStr, const AnsiString TrimChars); |
|---|
| 45 |
extern PACKAGE AnsiString __fastcall TrimExRight(const AnsiString InputStr, const AnsiString TrimChars); |
|---|
| 46 |
extern PACKAGE AnsiString __fastcall TrimEx(const AnsiString InputStr, const AnsiString TrimChars); |
|---|
| 47 |
extern PACKAGE unsigned __fastcall FileToCRC32(const AnsiString FileName, const bool ConsoleOutput = false); |
|---|
| 48 |
extern PACKAGE bool __fastcall CheckCharNum(const char Ch); |
|---|
| 49 |
extern PACKAGE bool __fastcall CheckStrInt(const AnsiString St); |
|---|
| 50 |
extern PACKAGE bool __fastcall CheckStrFloat(const AnsiString St); |
|---|
| 51 |
extern PACKAGE bool __fastcall IntToBool(const int InputInt); |
|---|
| 52 |
extern PACKAGE bool __fastcall StrToBool(const AnsiString InputStr); |
|---|
| 53 |
extern PACKAGE int __fastcall BoolToInt(const bool InputBool); |
|---|
| 54 |
extern PACKAGE AnsiString __fastcall BoolToStr(const bool InputBool); |
|---|
| 55 |
extern PACKAGE AnsiString __fastcall ReadFirstLineFromStr(const AnsiString InputStr); |
|---|
| 56 |
|
|---|
| 57 |
} /* namespace Extrafunctions */ |
|---|
| 58 |
using namespace Extrafunctions; |
|---|
| 59 |
#pragma option pop // -w- |
|---|
| 60 |
#pragma option pop // -Vx |
|---|
| 61 |
|
|---|
| 62 |
#pragma delphiheader end. |
|---|
| 63 |
//-- end unit ---------------------------------------------------------------- |
|---|
| 64 |
#endif // ExtraFunctions |
|---|
