mwsupportprocs.hpp

来自「本人买的<<VC++项目开发实例>>源代码配套光盘.」· HPP 代码 · 共 58 行

// Borland C++ Builder
// Copyright (c) 1995, 1999 by Borland International
// All rights reserved

// (DO NOT EDIT: machine generated header) 'mwSupportProcs.pas' rev: 5.00

#ifndef mwSupportProcsHPP
#define mwSupportProcsHPP

#pragma delphiheader begin
#pragma option push -w-
#pragma option push -Vx
#include <Classes.hpp>	// Pascal unit
#include <Windows.hpp>	// Pascal unit
#include <SysInit.hpp>	// Pascal unit
#include <System.hpp>	// Pascal unit

//-- user supplied -----------------------------------------------------------

namespace Mwsupportprocs
{
//-- type declarations -------------------------------------------------------
typedef int TIntArray[134217727];

typedef int *PIntArray;

typedef Set<char, 0, 255>  TIdentChars;

typedef AnsiString __fastcall (*TConvertTabsProc)(const AnsiString Line, int TabWidth);

//-- var, const, procedure ---------------------------------------------------
extern PACKAGE int __fastcall Max(int x, int y);
extern PACKAGE int __fastcall Min(int x, int y);
extern PACKAGE int __fastcall MinMax(int x, int mi, int ma);
extern PACKAGE void __fastcall SwapInt(int &l, int &r);
extern PACKAGE PIntArray __fastcall GetIntArray(unsigned Count, int InitialValue);
extern PACKAGE void __fastcall InternalFillRect(HDC dc, const Windows::TRect &rcPaint);
extern PACKAGE AnsiString __fastcall ConvertTabs(const AnsiString Line, int TabWidth);
extern PACKAGE TConvertTabsProc __fastcall GetBestConvertTabsProc(int TabWidth);
extern PACKAGE int __fastcall CharIndex2CaretPos(int Index, int TabWidth, const AnsiString Line);
extern PACKAGE int __fastcall CaretPos2CharIndex(int Position, int TabWidth, const AnsiString Line, 
	bool &InsideTabChar);
extern PACKAGE int __fastcall StrScanForCharInSet(const AnsiString Line, int Start, const TIdentChars 
	&AChars);
extern PACKAGE int __fastcall StrRScanForCharInSet(const AnsiString Line, int Start, const TIdentChars 
	&AChars);

}	/* namespace Mwsupportprocs */
#if !defined(NO_IMPLICIT_NAMESPACE_USE)
using namespace Mwsupportprocs;
#endif
#pragma option pop	// -w-
#pragma option pop	// -Vx

#pragma delphiheader end.
//-- end unit ----------------------------------------------------------------
#endif	// mwSupportProcs