开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 电子书籍 > VC书籍 > 查看源码
Unit1.cpp
资源名称：C++Builder.rar　[点击查看]
上传用户：lhxd_sz
上传日期：2014-10-02
资源大小：38814k
文件大小：2k
源码类别：

VC书籍

开发平台：

C++ Builder

Unit1.cpp：源码内容
  1. //---------------------------------------------------------------------------
  2. #include <vcl.h>
  3. #pragma hdrstop
  5. #include "Unit1.h"
  6. //---------------------------------------------------------------------------
  7. #pragma package(smart_init)
  8. #pragma resource "*.dfm"
  9. TForm1 *Form1;
  10. //---------------------------------------------------------------------------
  11. __fastcall TForm1::TForm1(TComponent* Owner)
  12.         : TForm(Owner)
  13. {
  14. }
  15. //---------------------------------------------------------------------------
  16. void __fastcall TForm1::MergeFiles(AnsiString dfilename,TStringList *files)
  17. {
  18.   int dfile,count,ii;
  20.   dfile=FileCreate(dfilename);
  21.   count=files->Count;
  22.   for(ii=0;ii<count;ii++)
  23.   {
  24.     OneCopy(files->Strings[ii],dfile);
  25.   }
  26.   FileClose(dfile);
  27. //
  28.   Application->MessageBox("文件组合完毕！","提示",MB_OK);
  29. }
  30. //---------------------------------------------------------------------------
  31. void __fastcall TForm1::OneCopy(AnsiString sfilename,int dfile)
  32. {
  33.   char *MyBuff;
  34.   MyBuff=new char[10010];
  35.   int sfile,nn;
  36.   sfile=FileOpen(sfilename,fmOpenRead);
  37.   if(sfile==-1)return;
  38.   do
  39.   {
  40.     nn=FileRead(sfile,MyBuff,10000);
  41.     FileWrite(dfile,MyBuff,nn);
  42.   }while(nn==10000);
  43.   FileClose(sfile);
  44.   delete MyBuff;
  45. }
  46. //---------------------------------------------------------------------------
  47. void __fastcall TForm1::Button1Click(TObject *Sender)
  48. {
  49.   if(OpenDialog1->Execute())
  50.   {
  51.     ListBox1->Items->Add(OpenDialog1->FileName);
  52.   }
  53. }
  54. //---------------------------------------------------------------------------
  55. void __fastcall TForm1::Button2Click(TObject *Sender)
  56. {
  57.   if(SaveDialog1->Execute())
  58.   {
  59.     Edit1->Text=SaveDialog1->FileName;
  60.   }
  61. }
  62. //---------------------------------------------------------------------------
  63. void __fastcall TForm1::Button4Click(TObject *Sender)
  64. {
  65.   ListBox1->Clear();
  66. }
  67. //---------------------------------------------------------------------------
  69. void __fastcall TForm1::Button3Click(TObject *Sender)
  70. {
  71.   MergeFiles(Edit1->Text,(TStringList *)ListBox1->Items);
  72. }
  73. //---------------------------------------------------------------------------