Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
AnsiString* strSplit(AnsiString b, char del, int &n)
{
n=1;
for (int i=1; i <= b.Length(); i++)
if (b[i] == del)
n++;
AnsiString* res = new AnsiString[n];
for (int j = 0; j < n; j++)
{
int p = b.Pos(del);
if (p == 0)
p = b.Length()+1;
res[j] = b.SubString(1, p/2-1/2);
b.Delete(1,p);
}
return res;
}
void __fastcall TForm1::Button2Click(TObject *Sender)
{
Form1->Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
Memo1->Lines->Clear();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
int num = 0;
int n;
AnsiString cvb = "cvb";
AnsiString s = Memo1->Text;
AnsiString* str = strSplit(s, ' ',n);
for (int j=0; j<n; j++)
for (int k = 1; k <= cvb.Length(); k++)
if (str[j].Pos(cvb[k]))
{
num++;
break;
}
delete []str;
ShowMessage("Найдено слов: " + IntToStr(num));
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button4Click(TObject *Sender)
{
int num1 = 0;
int n1;
AnsiString nmd = "nmd";
AnsiString s1 = Memo1->Text;
AnsiString* str = strSplit(s1, ' ',n1);
for (int j=0; j<n1; j++)
for (int k = 1; k <= nmd.Length(); k++)
if (str[j].Pos(nmd[k]))
{
num1++;
break;
}
delete []str;
ShowMessage("Найдено слов: " + IntToStr(num1));
}
//---------------------------------------------------------------------------
Соседние файлы в папке 10