Category

Development Platform
Home > E-Books > Visual C++ Books > View Code
Unit1.cpp
Package: C++Builder.rar　[view]
Upload User: lhxd_sz
Upload Date: 2014-10-02
Package Size: 38814k
Code Size: 3k
Category:

Visual C++ Books

Development Platform:

C++ Builder

Unit1.cpp：Code Content
  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. //---------------------------------------------------------------------------