?? unit1.cpp
字號:
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::MergeFiles(AnsiString dfilename,TStringList *files)
{
int dfile,count,ii;
dfile=FileCreate(dfilename);
count=files->Count;
for(ii=0;ii<count;ii++)
{
OneCopy(files->Strings[ii],dfile);
}
FileClose(dfile);
//
Application->MessageBox("文件組合完畢!","提示",MB_OK);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::OneCopy(AnsiString sfilename,int dfile)
{
char *MyBuff;
MyBuff=new char[10010];
int sfile,nn;
sfile=FileOpen(sfilename,fmOpenRead);
if(sfile==-1)return;
do
{
nn=FileRead(sfile,MyBuff,10000);
FileWrite(dfile,MyBuff,nn);
}while(nn==10000);
FileClose(sfile);
delete MyBuff;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
if(OpenDialog1->Execute())
{
ListBox1->Items->Add(OpenDialog1->FileName);
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
if(SaveDialog1->Execute())
{
Edit1->Text=SaveDialog1->FileName;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button4Click(TObject *Sender)
{
ListBox1->Clear();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
MergeFiles(Edit1->Text,(TStringList *)ListBox1->Items);
}
//---------------------------------------------------------------------------
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -