Подсчитать количество символов слов и предложений в текстовом файле на языке delphi

Категория: Delphi/Pascal
2011-08-28 22:47:23
code: #delphi
  1. procedure Counter(var symbols,words,sentences:integer);
  2. var f:textfile;
  3.      letter:char;
  4.      end_of_word, end_of_sentence:boolean;
  5. begin
  6. symbols:=0;
  7. words:=0;
  8. sentences:=0;
  9. end_of_word:=false;
  10. end_of_sentence:=false;
  11. assignfile(f,'file.txt');
  12. reset(f);
  13. if IOResult<>0 then ShowMessage('Файла нет') else
  14. begin
  15. while not eof(f) do
  16. begin
  17.   Read(f,letter);
  18.   symbols:=symbols+1;
  19.   if letter in [' ' , '.' , ',' , ';' , ':' , '-', #10, #13, #9] then
  20.   begin
  21.     if not end_of_word then
  22.       words:=words+1;
  23.     end_of_word:=true;
  24.     if not end_of_sentence and (letter='.') then
  25.     begin
  26.       end_of_sentence:=true;
  27.       sentences:=sentences+1
  28.     end;
  29.   end
  30.   else
  31.   begin
  32.     end_of_word:=false;
  33.     end_of_sentence=false
  34.   end;
  35. end;
  36. if not end_of_word then
  37.   words:=words+1;
  38. if not end_of_sentence then
  39.   sentence:=sentences+1;
  40. end;
  41. closefile(f);
  42. end;
  43. procedure TForm1.Button1Click(Sender:TObject);
  44. var symbs,words,sents:integer;
  45. begin
  46.   Counter(symbs,words,sents);
  47.   Label1.Caption:='Символов '+IntToStr(symbs);
  48.   Label2.Caption:='Слов '+IntToStr(words);
  49.   Label3.Caption:='Предложений '+IntToStr(sents);
  50. end;
Поделиться:

Похожие статьи:

теги: студенты, консольное приложение, работа со строками, файл, строки, работа с файлами, текстовый файл