Количество слов в тексте

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
#include "stdio.h"
#include "conio.h"
 
#include "UText.h"
#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N2Click(TObject *Sender)
{
if (OpenDialog1->Execute())
{
ListBox1->Items->LoadFromFile(OpenDialog1->FileName);
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N3Click(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::showClick(TObject *Sender)
{
if (OpenDialog1->Execute())
{
ListBox1->Items->LoadFromFile(OpenDialog1->FileName);
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N4Click(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
 
 
void __fastcall TForm1::N6Click(TObject *Sender)
{
Form2->Show();
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
TStringList *counts=new TStringList;
counts->Text=Trim(ListBox1->Items->Text);
counts->Text=StringReplace(counts->Text," ","\r\n",TReplaceFlags()<<rfReplaceAll);
int i=counts->Count;
delete counts;
ShowMessage(IntToStr(i));
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
TStringList *counts=new TStringList;
counts->Text=Trim(ListBox1->Items->Text);
counts->Text=StringReplace(counts->Text," ","\r\n",TReplaceFlags()<<rfReplaceAll);
int i=counts->Count;
delete counts;
ShowMessage(IntToStr(i));
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
AnsiString ss=Trim(ListBox1->Items->Text);
int s = 0, sp = 0 ;
char c;
for(int i = 1;i<=ss.Length();i++) {
         c = ss[i];
         if((c>='A' && c<='z') ||(c >= 'А' && c <= 'я'))
                s++;
         if(c == '.' || c == '!' || c =='?')
                sp++;
}
 
 
ShowMessage("Количество предложений: "+IntToStr(sp));
ShowMessage("Количество букв в тексте: "+IntToStr(s));
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
TStringList *counts=new TStringList;
counts->Text=Trim(ListBox1->Items->Text); //обрезка 
counts->Text=StringReplace(counts->Text," ","\r\n",TReplaceFlags()<<rfReplaceAll); // В этой стоке заменяем все пробелы на знак переноса строки, получаем столько строк, сколько было пробелов. Потом в переменную i заносится кол-во строк из counts т.е. i - и есть количество строк.
int i=counts->Count;
delete counts;
ShowMessage(IntToStr(i));

TStringList *counts=new TStringList;

counts->Text=StringReplace(counts->Text," ","\r\n",TReplaceFlags()<<rfReplaceAll);
int i=counts->Count;

delete counts;