Поиск предложений в текстовом файле (Delphi)

[axell24]

Умные люди помогите, не как не могу до думать алгоритм, перепробовал всё мозгов видать не хватает.
Текст задачи такой:

Приложение содержит многострочный редактор TMemo, метку TLabel и две кнопки "Открыть файл" и "Сколько предложений?". При нажатии на кнопку "Открыть файл" пользователь загружает в редактор любой текстовый файл.
Щелчок по кнопке "Сколько предложений?" подсчитывает количество предложений в тексте и отображает в компоненте TLabel.
Предложения в тексте разделены знаками !, ?, ., … и пробелами после них.
Создать обработчик события, который будет подготавливать окно к новой работе.

Визуально всё сделал, а алгоритм нахождения предложений глючит сразу говорю в дельфи я новичок.
Вот до чего додумался:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Memo: TMemo;
    LabelNum: TLabel;
    BbOpenFile: TButton;
    BbWhatPro: TButton;
    Panel: TPanel;
    OpenDialog: TOpenDialog;
    procedure BbOpenFileClick(Sender: TObject);
    procedure BbWhatProClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BbOpenFileClick(Sender: TObject);
begin
With  OpenDialog  Do
If  Execute  Then
Begin
Memo.Lines.LoadFromFile(Filename);
Memo.Modified := False;
end;
end;

function prol (const z : string; x : string) : integer;
var
sim : integer;

begin
sim := ansipos(z, x);
if sim = 0 then result :=0
Else
result :=length(IntToStr(sim));

end;

procedure TForm1.BbWhatProClick(Sender: TObject);
var
sum : integer;

begin
sum := prol('. ', Memo.Lines.text) + prol('... ', Memo.Lines.text) + prol('! ', Memo.Lines.text);

LabelNum.Caption := IntToStr(sum);

end;

end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Neobrat]

поясню что вы тут делаете

function prol (const z : string; x : string) : integer;
var
sim : integer;

begin
sim := ansipos(z, x); // ansipos найти первую позицию вхождения подстроки z в строку x
if sim = 0 then result :=0 // если позиция равно нулю, то вхождений нет, значит предложений нет
Else //иначе
result :=length(IntToStr(sim));
//1. IntToStr получить строковое представление числа sim(а это число содержит позицию первого вхождения строки Z)
//2. получить длину строки которое равно строковому представлению числа sim

end;

[Neobrat]

надо что то такого(пишу по памяти)..
думаю ход мыслей станет ясен.

function prol (const z : string; x : string) : integer;
var
xPos, xCount : integer;
xTMP: string;
begin
xPos := ansipos(z, x);
xCount := 0;
while xPos <> 0 do
 begin
   Inc(xCount);
   xTMP := copy(X, xPos, Length(x) - xPos);
   xPos := ansipos(z, xTMP);
 end;

Result := xCount;

end;

[Dush]

функция взята из JEDI Code Library (функция считает слова в строке S разделенные WordDelims):

function WordCount(const S:string; const WordDelims:TChartSet):integer
var SLen, I:Cardinal;
begin
  Result:=0;
  i:=1;
  SLen:=Length(s);
  while I<=SLen do
  begin
    while (I<=SLen) and (S[I] in WordDelims) do inc(I);
    if I<=SLen then Inc(Result);
    while (I<=SLen) and not (S[I] in WordDelims) do Inc(I);
  end;
end;

[axell24]

В обоих случаях программа просто зависает, буду думать дальше

[Serge_Bliznykov]

или я чего-то не понимаю, или одно из двух..
а в чём проблемы то?!
перебираем все символы текста по одному.
Если встретили символ разделитель и за ним пробел - увеличиваете счётчик предложений.
Единственный знак разделитель длиной 3 "..." - проверять дополнительно + добавить проверочку, что до конца текста больше 4-х символов.
И всё.

не понимаю, что вызывает трудности.