utilsdos.hpp

这是一个有关文本编辑器的源程序,支持彩色语法,你可以任意修改,修改后发给我一份

// Borland C++ Builder
// Copyright (c) 1995, 2002 by Borland Software Corporation
// All rights reserved

// (DO NOT EDIT: machine generated header) 'UtilsDos.pas' rev: 6.00

#ifndef UtilsDosHPP
#define UtilsDosHPP

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

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

namespace Utilsdos
{
//-- type declarations -------------------------------------------------------
typedef file TByteFile;

typedef char TDrive;

typedef Set<TDrive, 65, 90>  TDrives;

#pragma option push -b-
enum TFileAttribute { atDirectory, atArchive, atReadOnly, atHidden, atSystem };
#pragma option pop

typedef Set<TFileAttribute, atDirectory, atSystem>  TFileAttributes;

class DELPHICLASS TFileReference;
class DELPHICLASS TFileReferences;
class PASCALIMPLEMENTATION TFileReferences : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	Classes::TList* FList;
	AnsiString FDirectory;
	AnsiString FWildCard;
	TFileAttributes FSearchAttr;
	System::TDateTime FSearchTime;
	TFileReference* __fastcall GetItem(int ItemIndex);
	int __fastcall GetCount(void);
	
public:
	__fastcall TFileReferences(void);
	__fastcall virtual ~TFileReferences(void);
	virtual int __fastcall Add(const Sysutils::TSearchRec &F);
	virtual void __fastcall Delete(int Index);
	void __fastcall Clear(void);
	void __fastcall SearchForFiles(AnsiString FileName, TFileAttributes FileAttr);
	void __fastcall SearchForDirs(const AnsiString ParentDir, TFileAttributes FileAttr);
	void __fastcall CopyToStrings(const Classes::TStrings* S);
	void __fastcall CopyFullNamesToStrings(const Classes::TStrings* S);
	__property TFileReference* Items[int ItemIndex] = {read=GetItem};
	__property int Count = {read=GetCount, nodefault};
	
__published:
	__property AnsiString Directory = {read=FDirectory};
	__property AnsiString WildCard = {read=FWildCard};
	__property TFileAttributes SearchAttr = {read=FSearchAttr, nodefault};
	__property System::TDateTime SearchTime = {read=FSearchTime};
};


class PASCALIMPLEMENTATION TFileReference : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	TFileReferences* FOwner;
	Sysutils::TSearchRec FSearchRec;
	System::TDateTime __fastcall GetCreationTime(void);
	TFileAttributes __fastcall GetFileAttr(void);
	AnsiString __fastcall GetFileName();
	int __fastcall GetFileSize(void);
	AnsiString __fastcall GetFullName();
	AnsiString __fastcall GetFullShortName();
	System::TDateTime __fastcall GetLastAccessTime(void);
	System::TDateTime __fastcall GetModificationTime(void);
	AnsiString __fastcall GetShortFileName();
	
__published:
	__property TFileReferences* Owner = {read=FOwner};
	__property Sysutils::TSearchRec RecData = {read=FSearchRec};
	__property AnsiString FullName = {read=GetFullName};
	__property AnsiString FileName = {read=GetFileName};
	__property AnsiString FullShortName = {read=GetFullShortName};
	__property AnsiString ShortFileName = {read=GetShortFileName};
	__property System::TDateTime CreationTime = {read=GetCreationTime};
	__property System::TDateTime ModificationTime = {read=GetModificationTime};
	__property System::TDateTime LastAccessTime = {read=GetLastAccessTime};
	__property int FileSize = {read=GetFileSize, nodefault};
	__property TFileAttributes FileAttr = {read=GetFileAttr, nodefault};
public:
	#pragma option push -w-inl
	/* TPersistent.Destroy */ inline __fastcall virtual ~TFileReference(void) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TObject.Create */ inline __fastcall TFileReference(void) : Classes::TPersistent() { }
	#pragma option pop
	
};


//-- var, const, procedure ---------------------------------------------------
extern PACKAGE TFileAttributes atStd;
extern PACKAGE TFileAttributes atAll;
extern PACKAGE char __fastcall UCase(char NormalChar);
extern PACKAGE char __fastcall LCase(char NormalChar);
extern PACKAGE bool __fastcall IsNormalChar(char Ch);
extern PACKAGE int __fastcall LastPos(const AnsiString Substr, const AnsiString S);
extern PACKAGE int __fastcall FirstNonWhiteSpace(const AnsiString S);
extern PACKAGE AnsiString __fastcall GetDriveDescription(TDrive Drive);
extern PACKAGE bool __fastcall DiskInDrive(TDrive Drive);
extern PACKAGE void __fastcall CreatePath(const AnsiString Directory);
extern PACKAGE void __fastcall DelTree(const AnsiString Directory);
extern PACKAGE bool __fastcall FileExistsWithCase(const AnsiString FileName);
extern PACKAGE bool __fastcall DirExists(const AnsiString Directory);
extern PACKAGE bool __fastcall DirExistsWithCase(const AnsiString Directory);
extern PACKAGE int __fastcall GetFileSize(const AnsiString FileName);
extern PACKAGE AnsiString __fastcall GetSubDir(const AnsiString Directory);
extern PACKAGE AnsiString __fastcall GetHigherDir(const AnsiString Directory);
extern PACKAGE void __fastcall DelAllFiles(const AnsiString Directory);
extern PACKAGE AnsiString __fastcall GetLowerName(const AnsiString N);
extern PACKAGE AnsiString __fastcall SizeToStr(__int64 Size);
extern PACKAGE AnsiString __fastcall AttrToStr(int Attr);
extern PACKAGE Byte __fastcall ChangeText(AnsiString &ChText, AnsiString ToChange, AnsiString ToInsert);
extern PACKAGE void __fastcall PCSpeakerPlay(Word Frequency);
extern PACKAGE void __fastcall PCSpeakerStop(void);
extern PACKAGE void __fastcall SetDate(Word a, Byte m, Byte d);
extern PACKAGE void __fastcall SetTime(Byte h, Byte m, Byte s, Byte hs);
extern PACKAGE void __fastcall WrCStr(file &F, AnsiString Str);
extern PACKAGE void __fastcall WrPStr(file &F, AnsiString Str, Byte Len);
extern PACKAGE void __fastcall WrVStr(file &F, AnsiString Str);
extern PACKAGE void __fastcall WrSInt(file &F, Shortint Value);
extern PACKAGE void __fastcall WrByte(file &F, Byte Value);
extern PACKAGE void __fastcall WrNInt(file &F, short Value);
extern PACKAGE void __fastcall WrWord(file &F, Word Value);
extern PACKAGE void __fastcall RdCStr(file &F, AnsiString &Str, Byte Len);
extern PACKAGE void __fastcall RdPStr(file &F, AnsiString &Str, Byte Len);
extern PACKAGE void __fastcall RdVStr(file &F, AnsiString &Str);
extern PACKAGE void __fastcall RdSInt(file &F, Shortint &Value);
extern PACKAGE void __fastcall RdByte(file &F, Byte &Value);
extern PACKAGE void __fastcall RdNInt(file &F, short &Value);
extern PACKAGE void __fastcall RdWord(file &F, Word &Value);
extern PACKAGE System::TDateTime __fastcall WinFileTimeToDateTime(const _FILETIME &WinFileTime);
extern PACKAGE TFileAttributes __fastcall WinFileAttrToFileAttr(int WinFileAttr);
extern PACKAGE int __fastcall FileAttrToWinFileAttr(TFileAttributes FileAttr);
extern PACKAGE void __fastcall AddBackslash(AnsiString &Dir);
extern PACKAGE AnsiString __fastcall WithBackslash(const AnsiString Dir);
extern PACKAGE AnsiString __fastcall WithoutBackslash(const AnsiString Dir);
extern PACKAGE AnsiString __fastcall WithoutExt(const AnsiString FileName);

}	/* namespace Utilsdos */
using namespace Utilsdos;
#pragma option pop	// -w-
#pragma option pop	// -Vx

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