Подсчёт слов в тексте.

unit MainUnit;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, XPMan, ComCtrls;
 
type
  TMainForm = class(TForm)
    Label1: TLabel;
    btnChange: TButton;
    XPManifest1: TXPManifest;
    Memo1: TMemo;
    lblResult: TLabel;
    Label2: TLabel;
    StatusBar1: TStatusBar;
    procedure btnChangeClick(Sender: TObject);
  end;
 
var
  MainForm: TMainForm;
 
implementation
 
{$R *.dfm}
 
procedure TMainForm.btnChangeClick(Sender: TObject);
var
  i, l, n, p: Integer;
 
    // i - счётчик цикла
  // l - длина текущего слова
  // n - количество слов
  // s - количество секунд
  // p - количество предлогов
begin
  l := 0;
  n := 0;
  p := 0;
  // проверяю есть ли пробел в конце.. если его там нет, то добавляю...
  If Memo1.Text[Length(Memo1.Text)] <> ' ' then
    Memo1.Text := Memo1.Text + ' ';
  // а вот, собственно, цикл, который проверяет кол-во слов... тут учтено, что могут стоять лишние пробелы
  For i := 1 to Length(Memo1.Text) do
    If Memo1.Text[i] <> ' ' then
      l := l + 1
    Else
      If l <> 0 then
        begin
          l := 0;
          n := n + 1;
 
  // Если в слове больше 10 символов, то добавляем пробел
 
 
          end;
  // Вывожу результат на экран:
  lblResult.Caption := 'Количество слов: ' + IntToStr(n) ;
  label2.Caption := 'Количество предлогов: ' + IntToStr(p) ;
  statusbar1.Panels[0].Text:='Cлов: ' +IntToStr(n);
  statusbar1.Panels[1].Text:='секунд: ' +IntToStr(n div 2);
 
end;
 
end.

procedure TForm1.Button1Click(Sender: TObject);
const
  //Разделители слов.
  D = ['.', ',', ':', ';', '!', '?', '-', ' ', #9, #10, #13];
  //Множество десятичных цифр.
  Dd = ['0'..'9'];
var
  S : String;
  PCh : PChar;
  i, Len, LenW : Integer;
  Cnt, Cnt3, Cnt12, CntNum : Integer;
  IsNum : Boolean;
begin
  S := Memo1.Text;
  PCh := PChar(S); //Указатель на первый символ строки.
 
  Len := Length(S);
  //Длина очередного слова.
  LenW := 0;
  //Счётчики.
  Cnt := 0;
  Cnt3 := 0;
  Cnt12 := 0;
  CntNum := 0;
  //Флаг, показывающий, что слово состоит только из десятичных цифр.
  IsNum := True;
  for i := 1 to Len do begin
    //Если символ не является разделителем, значит он принадлежит слову.
    if PCh[i] in D then Continue;
    //Учитываем очередной символ в длине слова.
    Inc(LenW);
    //Если символ не является цифрой, то устанавливаем флаг IsNum в False.
    if IsNum and not (PCh[i] in Dd) then IsNum := False;
    //Отслеживаем конец слова и производим подсчёт.
    if (i = Len) or (PCh[i + 1] in D) then begin
      //Если слово состоит только из десятичных цифр.
      if IsNum then
        Inc(CntNum)
      //Количество слов с длиной 1..3 символов.
      else if LenW <= 3 then
        Inc(Cnt3)
      //Количество слов с длиной 12 и более символов.
      else if LenW >= 12 then
        Inc(Cnt12)
      //Количество слов с прочими длинами - т. е.: 4..11 символов.
      else
        Inc(Cnt);
 
      LenW := 0;
      IsNum := True;
    end;
  end;
 
  //Ответ.
  ShowMessage('В заданном тексте:'
    + #13#10
    + #13#10'Количество слов, состоящих только из десятичных цифр: ' + IntToStr(CntNum)
    + #13#10
    + #13#10'Слова, в которых есть буквы и могут быть цифры:'
    + #13#10
    + #13#10'Количество слов с длиной 1..3: ' + IntToStr(Cnt3)
    + #13#10'Количество слов с длиной 12...: ' + IntToStr(Cnt12)
    + #13#10'Количество слов с прочими длинами: ' + IntToStr(Cnt) );
end;

procedure TForm1.Button2Click(Sender: TObject);
const
  //Разделители слов.
  D = [Ord('.'), Ord(','), Ord(':'), Ord(';'), Ord('!'), Ord('?'),
    Ord('-'), 32, 9, 10, 13];
  //Множество десятичных цифр.
  Dd = [Ord('0')..Ord('9')];
var
  S : String;
  Pb : PByte;
  i, Len, LenW : Integer;
  Cnt, Cnt3, Cnt12, CntNum : Integer;
  IsNum : Boolean;
begin
  S := Memo1.Text;
  Pb := PByte(S); //Указатель на первый символ строки.
 
  Len := Length(S);
  //Длина очередного слова.
  LenW := 0;
  //Счётчики.
  Cnt := 0;
  Cnt3 := 0;
  Cnt12 := 0;
  CntNum := 0;
  //Флаг, показывающий, что слово состоит только из десятичных цифр.
  IsNum := True;
  for i := 1 to Len do begin
    //Если символ не является разделителем, значит он принадлежит слову.
    if not (Pb^ in D) then begin
      //Учитываем очередной символ в длине слова.
      Inc(LenW);
      //Если символ не является цифрой, то устанавливаем флаг IsNum в False.
      if IsNum and not (Pb^ in Dd) then IsNum := False;
      //Отслеживаем конец слова и производим подсчёт.
      if (i = Len) or (PByte(Integer(Pb) + 1)^ in D) then begin
        //Если слово состоит только из десятичных цифр.
        if IsNum then
          Inc(CntNum)
        //Количество слов с длиной 1..3 символов.
        else if LenW <= 3 then
          Inc(Cnt3)
        //Количество слов с длиной 12 и более символов.
        else if LenW >= 12 then
          Inc(Cnt12)
        //Количество слов с прочими длинами - т. е.: 4..11 символов.
        else
          Inc(Cnt);
 
        LenW := 0;
        IsNum := True;
      end;
    end;
    Inc(Pb); //Перемещаем указатель на следующий символ.
  end;
 
  //Ответ.
  ShowMessage('В заданном тексте:'
    + #13#10
    + #13#10'Количество слов, состоящих только из десятичных цифр: ' + IntToStr(CntNum)
    + #13#10
    + #13#10'Слова, в которых есть буквы и могут быть цифры:'
    + #13#10
    + #13#10'Количество слов с длиной 1..3: ' + IntToStr(Cnt3)
    + #13#10'Количество слов с длиной 12...: ' + IntToStr(Cnt12)
    + #13#10'Количество слов с прочими длинами: ' + IntToStr(Cnt) );
end;