?? pascalfunctions.hpp
字號:
// Borland C++ Builder
// Copyright (c) 1995, 2002 by Borland Software Corporation
// All rights reserved
// (DO NOT EDIT: machine generated header) 'PascalFunctions.pas' rev: 6.00
#ifndef PascalFunctionsHPP
#define PascalFunctionsHPP
#pragma delphiheader begin
#pragma option push -w-
#pragma option push -Vx
#include <ActiveX.hpp> // Pascal unit
#include <ShlObj.hpp> // Pascal unit
#include <DB.hpp> // Pascal unit
#include <ADODB.hpp> // Pascal unit
#include <DBCtrls.hpp> // Pascal unit
#include <CommDlg.hpp> // Pascal unit
#include <StdCtrls.hpp> // Pascal unit
#include <ExtCtrls.hpp> // Pascal unit
#include <Dialogs.hpp> // Pascal unit
#include <Graphics.hpp> // Pascal unit
#include <Classes.hpp> // Pascal unit
#include <Forms.hpp> // Pascal unit
#include <SysUtils.hpp> // Pascal unit
#include <Messages.hpp> // Pascal unit
#include <Windows.hpp> // Pascal unit
#include <SysInit.hpp> // Pascal unit
#include <System.hpp> // Pascal unit
//-- user supplied -----------------------------------------------------------
namespace Pascalfunctions
{
//-- type declarations -------------------------------------------------------
class DELPHICLASS TPascalFun;
class PASCALIMPLEMENTATION TPascalFun : public System::TObject
{
typedef System::TObject inherited;
public:
char * __fastcall MypChar(AnsiString Word);
int __fastcall MyOrd(char X);
void __fastcall WipeFile(AnsiString FileName);
int __fastcall WinExecAndWait32(AnsiString FileName, int Visibility);
AnsiString __fastcall GetLongFileName(AnsiString FileName);
AnsiString __fastcall GetSystemPath();
void __fastcall CombineFile(AnsiString ResName, AnsiString ResType, AnsiString target, AnsiString source);
AnsiString __fastcall ExportEncryptFile(AnsiString FileName);
void __fastcall LoadFromRes(AnsiString ResName, AnsiString ResType, AnsiString FileName);
void __fastcall SaveToPackage(Adodb::TADOTable* ADOTable, Classes::TStream* save);
void __fastcall LoadFromPackage(Adodb::TADOTable* ADOTable, Classes::TStream* load);
public:
#pragma option push -w-inl
/* TObject.Create */ inline __fastcall TPascalFun(void) : System::TObject() { }
#pragma option pop
#pragma option push -w-inl
/* TObject.Destroy */ inline __fastcall virtual ~TPascalFun(void) { }
#pragma option pop
};
//-- var, const, procedure ---------------------------------------------------
} /* namespace Pascalfunctions */
using namespace Pascalfunctions;
#pragma option pop // -w-
#pragma option pop // -Vx
#pragma delphiheader end.
//-- end unit ----------------------------------------------------------------
#endif // PascalFunctions
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -