mainform.h
来自「C++ BUILDER精彩编程实例集锦(源码)2 第三部分 文件操作 第四部」· C头文件 代码 · 共 62 行
H
62 行
//---------------------------------------------------------------------------
#ifndef MainFormH
#define MainFormH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <Buttons.hpp>
#include <Dialogs.hpp>
//---------------------------------------------------------------------------
typedef enum {
frtFind,
frtReplace,
frtRepAll
} FRT ;
#define GETSEL(ichS,ichE) SendMessage(Memo1->Handle,EM_GETSEL,(WPARAM)&ichS,(LPARAM)&ichE)
#define SETSEL(ichS,ichE) SendMessage(Memo1->Handle,EM_SETSEL, (WPARAM) ichS, (LPARAM) ichE)
BOOL FWholeWord(char* sz,char* szStart,char* szEnd,int cch)
{
if (sz!=szStart&&*(sz-1)!=' ' &&*(sz-1)!='\t'&&*(sz-1)!=','&&*(sz-1)!='.'&&*(sz-1)!='\r')
{
return FALSE;
}
if (sz+cch!=szEnd&&*(sz+cch)!=' '&&*(sz +cch)!='\t'&&*(sz+cch)!=','&&*(sz+cch)!='.'&&*(sz+cch)!='\r')
{
return FALSE;
}
return TRUE;
}
class TForm1 : public TForm
{
__published: // IDE-managed Components
TMemo *Memo1;
TBitBtn *BitBtn1;
TBitBtn *BitBtn2;
TBitBtn *BitBtn3;
TBitBtn *BitBtn4;
TOpenDialog *OpenDialog1;
TFindDialog *FindDialog1;
TReplaceDialog *ReplaceDialog1;
void __fastcall BitBtn1Click(TObject *Sender);
void __fastcall BitBtn4Click(TObject *Sender);
void __fastcall OnFind(TObject *Sender);
void __fastcall OnReplaceFind(TObject *Sender);
void __fastcall Replace(TObject *Sender);
void __fastcall BitBtn2Click(TObject *Sender);
void __fastcall BitBtn3Click(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TForm1(TComponent* Owner);
bool Find(char * szFind, BOOL fDown, BOOL fMatchCase, BOOL fWholeWord, BOOL fNoScroll);
void Replace(char * szReplace);
void ReplaceAll(char* szFind, char * szReplace, bool fMatchCase,bool fWholeWord);
void FindReplace(char * szFind, char * szReplace, FRT frt,BOOL fDown, BOOL fMatchCase, BOOL fWholeWord);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?