И-12б(8) / 11 / Unit1

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------


char **strSplit(char* b, char del, int &n)
        {
n=1;
for (int i=1; i <= strlen(b); i++)
if (b[i] == del)
n++;
char** res = new char*[n];
for (int j = 0; j < n; j++)
{
int p = strchr(b,del)-b;
if (p < 0)
p = strlen(b);
res[j] = new char[p/2];
strncpy(res[j],b,p);
res[j][p] = '\0';
b += p+1;
}
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;
char* cvb = "cvb";
for (int i=0; i<Memo1->Lines->Count; i++)
{
AnsiString s = Trim(Memo1->Lines->Strings[i]);
int n;
char** str = strSplit(s.c_str(), ' ',n);
for (int j=0; j<n;j++)
for (int k=0; k<strlen(cvb);k++)
if (strchr(str[j], cvb[k])>0)
{
num++;
break;
}
for (int j=0; j<n; j++)
delete []str[j];
delete []str;
}
ShowMessage("Найдено слов: " + IntToStr(num));
         }
//---------------------------------------------------------------------------


void __fastcall TForm1::Button4Click(TObject *Sender)
        {
int num = 0;
int n;
char* nmd = "nmd";
for (int i=0; i<Memo1->Lines->Count; i++)
{
AnsiString s = Trim(Memo1->Lines->Strings[i]);
int n;
char** str = strSplit(s.c_str(), ' ',n);
for (int j=0; j<n;j++)
for (int k=0; k<strlen(nmd);k++)
if (strchr(str[j], nmd[k])>0)
{
num++;
break;
}
for (int j=0; j<n; j++)
delete []str[j];
delete []str;
}
ShowMessage("Найдено слов: " + IntToStr(num));
         }
//---------------------------------------------------------------------------