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

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

VC书籍

开发平台：

C++ Builder

Unit1.cpp：源码内容
  1. //---------------------------------------------------------------------------
  2. #include <vcl.h>
  3. #include <io.h>
  4. #pragma hdrstop
  6. #include "Unit1.h"
  7. //---------------------------------------------------------------------------
  8. #pragma package(smart_init)
  9. #pragma resource "*.dfm"
  10. TForm1 *Form1;
  11. //---------------------------------------------------------------------------
  12. __fastcall TForm1::TForm1(TComponent* Owner)
  13.         : TForm(Owner)
  14. {
  15. }
  16. //---------------------------------------------------------------------------
  17. void __fastcall TForm1::WriteString(int ff,AnsiString ss)
  18. {
  19.   AnsiString ass;
  20.   int nn;
  21.   ass=ss+"rn";
  22.   nn=ass.Length();
  23.   FileWrite(ff,ass.c_str(),nn);
  24. }
  25. //---------------------------------------------------------------------------
  26. AnsiString __fastcall TForm1::ReadString(int ff)
  27. {
  28.   AnsiString ass;
  29.   char ss[2];
  30.   int nn;
  31.   ass="";
  32.   ss[1]=0;
  33.   for(;;)
  34.   {
  35.     nn=FileRead(ff,ss,1);
  36.     if(nn<1)
  37.     {
  38.       ass="~~~END~~~";
  39.       break;
  40.     }
  41.     if((ss[0]==0x0d)||(ss[0]==0x0a))
  42.     {
  43.       if(ass!="")break;
  44.     }
  45.     else
  46.     {
  47.       ass=ass+ss;
  48.     }
  49.   }
  50.   return ass;
  51. }
  52. //---------------------------------------------------------------------------
  53. void __fastcall TForm1::Button2Click(TObject *Sender)
  54. {
  55.   int ii,ff;
  56.   if(SaveDialog1->Execute())
  57.   {
  58.     ff=FileCreate(SaveDialog1->FileName);
  59.     if(ff==-1)return;
  60.     for(ii=0;ii<Memo1->Lines->Count;ii++)
  61.     {
  62.       WriteString(ff,Memo1->Lines->Strings[ii]);
  63.     }
  64.     FileClose(ff);
  65.   }
  66. }
  67. //---------------------------------------------------------------------------
  68. void __fastcall TForm1::Button1Click(TObject *Sender)
  69. {
  70.   int ff;
  71.   AnsiString ass;
  72.   if(OpenDialog1->Execute())
  73.   {
  74.     ff=FileOpen(OpenDialog1->FileName, fmOpenRead);
  75.     if(ff==-1)return;
  76.     Memo1->Clear();
  77.     for(;;)
  78.     {
  79.       ass=ReadString(ff);
  80.       if(ass=="~~~END~~~")break;
  81.       else Memo1->Lines->Add(ass);
  82.     }
  83.     FileClose(ff);
  84.   }
  85. }
  86. //---------------------------------------------------------------------------
  87. void __fastcall TForm1::Button3Click(TObject *Sender)
  88. {
  89.   int nn,ff;
  90.   AnsiString ass;
  91.   char ss[2];
  92.   if(OpenDialog1->Execute())
  93.   {
  94.     ff=FileOpen(OpenDialog1->FileName, fmOpenRead);
  95.     if(ff==-1)return;
  96.     Memo1->Text="";
  97.     for(;;)
  98.     {
  99.       nn=FileRead(ff,ss,1);
  100.       if(nn<1)break;
  101.       Memo1->Text=Memo1->Text+ss;
  102.     }
  103.     FileClose(ff);
  104.   }
  105. }
  106. //---------------------------------------------------------------------------
  108. void __fastcall TForm1::Button4Click(TObject *Sender)
  109. {
  110.   int ii,ff,nn;
  111.   if(SaveDialog1->Execute())
  112.   {
  113.     ff=FileCreate(SaveDialog1->FileName);
  114.     if(ff==-1)return;
  115.     nn=Memo1->Text.Length();
  116.     FileWrite(ff,Memo1->Text.c_str(),nn);
  117.     FileClose(ff);
  118.   }
  119. }
  120. //---------------------------------------------------------------------------