// Borland C++ Builder // Copyright (c) 1995, 2002 by Borland Software Corporation // All rights reserved // (DO NOT EDIT: machine generated header) 'MySys.pas' rev: 6.00 #ifndef MySysHPP #define MySysHPP #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 #include // Pascal unit #include // Pascal unit #include // Pascal unit #include // Pascal unit #include // Pascal unit #include // Pascal unit //-- user supplied ----------------------------------------------------------- namespace Mysys { //-- type declarations ------------------------------------------------------- typedef Byte ChetireBaita[4]; typedef int StoIntegerov[100]; #pragma pack(push, 1) struct RCPCResult { bool IsFile; bool IsCorrect; bool IsExists; } ; #pragma pack(pop) #pragma pack(push, 4) struct RPzDbStrRec { AnsiString Str; int Siz; } ; #pragma pack(pop) typedef AnsiString *PointToStr; //-- var, const, procedure --------------------------------------------------- extern PACKAGE AnsiString __fastcall GetFilePath(AnsiString FileName); extern PACKAGE AnsiString __fastcall GetFileName(const AnsiString FileName); extern PACKAGE AnsiString __fastcall GetFileName2(const AnsiString FileName); extern PACKAGE AnsiString __fastcall GenerateNumName(const __int64 Sch, AnsiString nam); extern PACKAGE AnsiString __fastcall ByteToIntStr(const Byte buf); extern PACKAGE bool __fastcall Chetnoe(const __int64 Int); extern PACKAGE bool __fastcall FileExistsDiv(const AnsiString FName, const AnsiString Dir); extern PACKAGE int __fastcall WstateToInt(const Forms::TWindowState WState); extern PACKAGE Forms::TWindowState __fastcall IntToWstate(const int Int); extern PACKAGE Byte __fastcall ConvertDosWin(Byte buf); extern PACKAGE Byte __fastcall ConvertWinDos(Byte buf); extern PACKAGE Byte __fastcall GetDraNum(AnsiString stroka); extern PACKAGE AnsiString __fastcall GetVolumeName(AnsiString RootPath); extern PACKAGE AnsiString __fastcall GetDirMin1(const AnsiString pathdir); extern PACKAGE int __fastcall GetUnsignedLong(const Byte * ChB); extern PACKAGE int __fastcall GetUnsignedLongOld(const Byte b1, const Byte b2, const Byte b3, const Byte b4); extern PACKAGE Byte __fastcall UnGetUnsignedLong(const int intgr); extern PACKAGE Extended __fastcall GetFloat(const Byte * ChB); extern PACKAGE Byte __fastcall UnGetFloat(const Extended Flt); extern PACKAGE Extended __fastcall RoundFloat(const Extended Flt, int Num); extern PACKAGE Extended __fastcall ObrezatDoNum(const Extended Flt, int Num); extern PACKAGE Extended __fastcall StrToFloat2(const AnsiString St); extern PACKAGE bool __fastcall HasLastSlash(const AnsiString Str); extern PACKAGE AnsiString __fastcall AddLastSlash(const AnsiString Str); extern PACKAGE RCPCResult __fastcall CheckPathCor(const AnsiString Str); extern PACKAGE AnsiString __fastcall GetValueStr(const AnsiString Str); extern PACKAGE Grids::TGridRect __fastcall SelGridRect(const int X, const int Y); extern PACKAGE bool __fastcall CheckStrPredel(const AnsiString Str, int Simvolov); extern PACKAGE AnsiString __fastcall PzDbStrToStr(const AnsiString Str); extern PACKAGE RPzDbStrRec __fastcall StrToPzDbStr(const AnsiString Str); extern PACKAGE AnsiString __fastcall StrToPzDbStr2(const AnsiString Str); extern PACKAGE AnsiString __fastcall FloatTo4byteStr(const Extended Flt); extern PACKAGE AnsiString __fastcall UnsLongTo4byteStr(const int UnsL); extern PACKAGE int __fastcall _4byteStrToUnsLong(const AnsiString Str); extern PACKAGE Extended __fastcall _4byteStrToFloat(const AnsiString Str); extern PACKAGE AnsiString __fastcall TimeTo4byteStr(const Extended Flt); extern PACKAGE Extended __fastcall _4byteStrToTime(const AnsiString Str); extern PACKAGE AnsiString __fastcall FloatToStrMy(Extended Value); extern PACKAGE int __fastcall GetStringSize(const AnsiString Str); extern PACKAGE AnsiString __fastcall OtkusitStrokeBashku(PointToStr Point1, const int baitov); extern PACKAGE bool __fastcall IsCifra(const char Ch); extern PACKAGE bool __fastcall CheckStrBool(const AnsiString Str); extern PACKAGE AnsiString __fastcall BoolTo1byteStr(const bool Bool); extern PACKAGE bool __fastcall _1byteStrToBool(const AnsiString Str); extern PACKAGE AnsiString __fastcall FilterValue(const AnsiString Str); extern PACKAGE Byte __fastcall _1byteStrToByte(const AnsiString Str); extern PACKAGE AnsiString __fastcall ByteTo1byteStr(const Byte Bt); extern PACKAGE bool __fastcall CheckStrByte(const AnsiString Str); extern PACKAGE AnsiString __fastcall StrTo4bTEXT(const AnsiString Str); extern PACKAGE AnsiString __fastcall _4byteStrWth4bTEXT_ToStr(const AnsiString Str); extern PACKAGE bool __fastcall CheckStr4b1bTEXT(const AnsiString Str); extern PACKAGE bool __fastcall CheckStr4bTEXT(const AnsiString Str); extern PACKAGE AnsiString __fastcall DelLastSlash(const AnsiString Str); extern PACKAGE bool __fastcall RenameDir(const AnsiString Old, const AnsiString New); } /* namespace Mysys */ using namespace Mysys; #pragma option pop // -w- #pragma option pop // -Vx #pragma delphiheader end. //-- end unit ---------------------------------------------------------------- #endif // MySys