Форум программистов [Powered by Invision Power Board]

Код

procedure TForm1.Button1Click(Sender: TObject);
var f1:TextFile;
    a:string;
    pr:char;
    i, k:integer;
begin

  AssignFile(f1,'Путь\abc.txt');

  Memo1.Lines.LoadFromFile('Путь\abc.txt');
  k:=0;
  a := Memo1.Text;
  i := 1;
  while i <= Length(a) do
  begin
    if a[i] in ['.', '?', '!'] then k:=k+1;
    inc(i)
  end;
  Label2.Caption:='Количество предложений в тексте: '+IntToStr(k);
end;

procedure TForm1.Button2Click(Sender: TObject);
const DelSym = ' .,!?';//символы разделители
var Text,Word: string; i: integer;
begin
  Text:=Memo1.Lines.Text;//переносит введенный в Memo текст в переменную
  for i := 1 to Length(Text) do      //от 1 до длины строки текста
    if Pos(Text[i],DelSym) > 0 then  //ищем явл. ли встречаемый симв. разделителем
      Text[i]:=',';                  //если да то заменяем их на запятую

  if Text[1] = ',' then       //если первый символ запятая то удаляем его
    Delete(Text,1,1);
  while Pos(',,',Text) > 0 do  //если идут несколько запятых то заменяем на одну
    Delete(Text,Pos(',,',Text),1);
  while Pos(#13,Text) > 0 do  //если идут несколько запятых то заменяем на одну
    Delete(Text,Pos(#13,Text),1);
  while Pos(#10,Text) > 0 do  //если идут несколько запятых то заменяем на одну
    Delete(Text,Pos(#10,Text),1);

  repeat
    Word:=Copy(Text,1,Pos(',',Text)-1);//находим первую запятую,копируем слово
    Delete(Text,1,Length(Word)+1);    //от начала текста до запятой,после чего
                                      //удаляем это слово из текста вместе с запятой

    ListBox1.Items.Add(Word);
  until Length(Text) = 0;    //пока не вырежем все слова
Label1.Caption:='Количество слов в тексте: '+IntToStr(ListBox1.Items.Count);
end;
end.