Поиск одинаковых слов (Delphi 7)

[hooch]

Дан файл,содержащий текст на русском языке.Найти слова,встречающиеся в каждом предложении или сообщить,что таких слов нет.Помогите кто чем может.Очень надо.Спасибо заранее.

[VVM]

Если необходимо найти слова, которые стречаются в КАЖДОМ предложении, то предлагаю примерно следующий алгоритм:
1. Загрузить файл в Memo (1 строка = 1 предложение).
2. Первое предложение забить полностью в массив - 1 элемент = 1 слово.
3. Пройтись циклом по остальному тексту, в цикле исп. функию pos.
4. Если слово не встретилось в очередном предложении - обнуляем (:= '') соответствующий элемент массива.
5. Смотрим что осталось в массиве, делаем вывод.

[hooch]

Я конечно благодарен,но если вам не очень сложно напишите кусочек кода...пожалуйста...мне просто курсовик сдават ьа я не понимаю этой темы ... заранее спасибо...

[VVM]

Вот код. Полагаю, его можно оптимизировать, но мне лень =)

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    OpenDialog1: TOpenDialog;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    TotalStr, Res: string;
    List: TStringList;
    First: array of string; //первое предложение, 1 = слово;
    Other: array of string; //остальные предложения, 1 = предложение;
    function GetFirstSentence: integer; //возвращает первую точку
    procedure DistributeOtherSentences(From: integer);
    function Check: boolean;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  if not OpenDialog1.Execute then
    exit;
  List := TStringList.Create;
  List.LoadFromFile(OpenDialog1.FileName);
  TotalStr := List.Text;
  List.Free;
  DistributeOtherSentences(GetFirstSentence);
  if Check then
    ShowMessage('Слово(а) "' + Res + '" встречается(ются) в каждом предложении.')
  else
    ShowMessage('Слов, которые встречаются в каждом предложении нет.');
end;

function TForm1.Check: boolean;
var
  I, J, count: integer;
begin
  Result := false;
  for I := 0 to High(First) do
  begin
    count := 0;
    for J := 0 to High(Other) do
    begin
      if pos(First[i], Other[J]) <> 0 then
        inc(count);
      if count = length(Other) then
      begin
        Res := Res + First[i] + ' ';
        Result := true;
      end;
    end;
  end;
end;

procedure TForm1.DistributeOtherSentences(From: integer);
var
  I, LastDot: integer;
begin
  I := From;
  LastDot := From;
  SetLength(Other, 0);
  repeat
    begin
      inc(i);
      if (TotalStr[i] = '.') then
      begin
        SetLength(Other, length(Other) + 1);
        Other[High(Other)] := trim(copy(TotalStr, LastDot + 2, I - LastDot));
        LastDot := I;
      end;
    end;
  until i = length(TotalStr);
end;

procedure TForm1.FormShow(Sender: TObject);
begin
  Res := '';
end;

function TForm1.GetFirstSentence: integer;
var
  I, LastSpace: integer;
begin
  Result := 0;
  I := 0;
  LastSpace := 1;
  SetLength(First, 0);
  repeat
    begin
      inc(i);
      if (TotalStr[i] = ' ') or
         (TotalStr[i] = '.') then
      begin
        SetLength(First, length(First) + 1);
        First[High(First)] := trim(copy(TotalStr, LastSpace, I - LastSpace));
        LastSpace := I;
      end;
    end;
  until TotalStr[i] = '.';
  Result := i;
end;

end.

З.Ы. На форме должен быть OpenDialog и Button.
'.' - разделитель предложений, ' ' - разделитель слов.
Открываем только текстовые файлы (*.txt).

[hooch]

Благодарю...спасли от армии)