Unit1.cpp
上传用户:lhxd_sz
上传日期:2014-10-02
资源大小:38814k
文件大小:1k
源码类别:

VC书籍

开发平台:

C++ Builder

  1. //---------------------------------------------------------------------------
  2. #include <vcl.h>
  3. #pragma hdrstop
  4. #include "Unit1.h"
  5. //---------------------------------------------------------------------------
  6. #pragma package(smart_init)
  7. #pragma resource "*.dfm"
  8. TForm1 *Form1;
  9. //---------------------------------------------------------------------------
  10. __fastcall TForm1::TForm1(TComponent* Owner)
  11.         : TForm(Owner)
  12. {
  13. }
  14. //---------------------------------------------------------------------------
  15. void __fastcall TForm1::Button1Click(TObject *Sender)
  16. {
  17.    AnsiString ss1,ss2;
  18.    int ll,nn;
  19.    ss1=Edit1->Text;
  20.    ss2="";
  21.    for(;;)
  22.    {
  23.      nn=ss1.Length();
  24.      if(nn<=0)break;
  25.      ll = strcspn(ss1.c_str(),Edit2->Text.c_str());
  26.      if(ll==0)ss1=ss1.SubString(2,nn-1);
  27.      else
  28.      {
  29.        ss2=ss2+ss1.SubString(1,ll);
  30.        ss1=ss1.SubString(ll+1,nn-ll);
  31.      }
  32.    }
  33.    Edit3->Text=ss2;
  34. }
  35. //---------------------------------------------------------------------------
  36.