Подсчет количества и частоты

[Ensoph]

(Для текстового редактора) Помогите пожалуйста в delphi с помощью модального окна вывести информацию о количестве символов, слов и предложений в тексте, и с помощью немодального окна вывести информацию о частоте встречаемости одного символа (без учета регистра). Процесс выполнения поиска отобразить на компоненте TProgressBar.

[Stilet]

Какого редактора?

[Ensoph]

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

[Stilet]

На чем основан редактор? на РичЭдите, на Мемо?...

[Ensoph]

второе. на мемо

[-=<[Evklidd]>=-]

По моему это должно выглядеть так, вывод с помощью модального окна организуете сами

procedure TForm1.Button1Click(Sender: TObject);
var
 dec: set of char;
 i, w, sim, pr, sl, c: integer;
 str, ch: string;
begin
 ch:= Edit1.Text;
 dec:= ['.','!','?'];
 sim:= 0;
 pr:= 0;
 sl:= 0;
 c:= 0;
 for i:= 0 to Memo1.Lines.Count-1 do
  begin
   str:= Memo1.Lines[i];
   sim:= sim + Length(str);
   for w:= 1 to Length(str) do
    begin
     if str[w] = ch then
     inc(c);
     if str[w]= ' ' then
     inc(sl);
     if str[w] in dec then
     inc(pr);
    end;
   inc(sl);
  end;
 with ProgressBar1 do
  begin
   Position:= Round((c/sim)*100);
  end;
 Label1.Caption:= 'Simvolov: '+ IntToStr(sim)+ #13 + 'Slov: '+IntToStr(sl)
 + #13+ 'Predlosheni: '+ IntToStr(pr);
end;

ЗЫ Следите за пробелами и знаками препинания, если не поставить точку в конце предложения например, то программа его не увидит и не увеличит счетчик, то же самое и с пробелами и словами

[Stilet]

А мне кажется так лучше будет рассчитать кол-во слов и предложений:

var slov,predl,i:integer;
begin
//********* FOR ******************
for i :=0  to Length(Memo1.Lines.Text) do
begin
 if Memo1.Lines.Text[i]=' ' then inc(slov);
 if Memo1.Lines.Text[i]='.' then inc(predl);
end;
//******* END FOR ****************{}
caption:='Слов='+IntToStr(slov)+' Предложений='+IntToStr(predl)
+' Символов='+IntToStr(length(Memo1.Lines.Text)-Memo1.Lines.Count*2);
end;

P.S. Это ни в коем случае не критика, просто предложение пооптимальнее