6 Star 3 Fork 0

甘才军 / CTestAutoJudge

加入 Gitee
与超过 1200万 开发者一起发现、参与优秀开源项目,私有仓库也完全免费 :)
免费加入
克隆/下载
formkeywordunit.~cpp 1.56 KB
一键复制 编辑 原始数据 按行查看 历史
甘才军 提交于 2022-01-12 10:16 . 添加了忽略文件列表
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "formkeywordunit.h"
#include "mainformunit.h"
#include "FormHelp.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormKeyword *FormKeyword;
//---------------------------------------------------------------------------
__fastcall TFormKeyword::TFormKeyword(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFormKeyword::Btn1Click(TObject *Sender)
{
FormMain->LsbKeyWord->Clear();
for(int i=0;i<this->MemoKeyWords->Lines->Count&&i<FormMain->CbbQuesNum->ItemIndex+1;i++)
{
AnsiString s=this->MemoKeyWords->Lines->Strings[i].Trim();
if(s!="")
FormMain->LsbKeyWord->Items->Add(s);
}
this->Close();
}
//---------------------------------------------------------------------------
void __fastcall TFormKeyword::Btn2Click(TObject *Sender)
{
this->MemoKeyWords->Clear();
for(int i=0;i<FormMain->LsbKeyWord->Count;i++)
{
AnsiString s=FormMain->LsbKeyWord->Items->Strings[i];
this->MemoKeyWords->Lines->Add(s);
}
}
//---------------------------------------------------------------------------
void __fastcall TFormKeyword::BtnHelpClick(TObject *Sender)
{
FrmHelp=new TFrmHelp(this,"keywords_help.txt");
FrmHelp->ShowModal();
delete FrmHelp;
}
//---------------------------------------------------------------------------
C++
1
https://gitee.com/gancaijun/CTestAutoJudge.git
git@gitee.com:gancaijun/CTestAutoJudge.git
gancaijun
CTestAutoJudge
CTestAutoJudge
develop

搜索帮助