Delphi. Учимся на примерах
Шрифт:
if str = 32 then space:= space + 1;
if str = 13 then line:= line + 1; //счетчик строк
if ((str = 32) or (str = 13) or (str = 10)) then
if ((oldstr<>32) and (oldstr<>10) and (oldstr<>13)) then word:= word + 1; //счетчик слов
end;
CloseFile(f); //закрываем файл
end
else ShowMessage('Ошибка: Файл не найден!'); {если файл не найден, то выводим сообщение об ошибке}
//Выводим всю полученную информацию о файле
symbols.Caption:= IntToStr(symbol);
spaces.Caption:= IntToStr(space);
lines.Caption:= IntToStr(line);
words.Caption := IntToStr(word);
end;
Сначала мы проверяем, существует ли файл, статистику которого будем определять. Если все нормально, то начинаем считывать из этого файла по одному символу и проверять по коду, что это за символ. Если код символа равен 32, то это — пробел, и мы пополняем счетчик пробелов. Если код считанного символа равен 13, то это — символ перевода строки, и мы пополняем счетчик строк. Если считанный символ не является пробелом или символом перевода строки, то это — обычный символ и следует пополнить счетчик символов. Для того чтобы подсчитать количество слов, мы выполняем следующую проверку: если считан пробел или символ перевода строки, то проверяем, является ли предыдущий символ пробелом или символом перевода строки, и если это так, пополняем счетчик слов.
Результат выполнения программы представлен на рис. 3.2.
Рис. 3.2. Программа Статистика в действии
Полный исходный код модуля
Код модуля программы Статистика представлен в листинге 3.1.
Листинг 3.1. Модуль программы Статистика
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;
type TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
words: TLabel;
symbols: TLabel;
spaces: TLabel;
lines: TLabel;
Button1: TButton;
Edit1: TEdit;
Button2: TButton;
Open1: TOpenDialog;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.ButtonlClick(Sender: TObject); begin
//начинаем обзор с текущей папки
Open1.InitialDir:= GetCurrentDir;
if Open1.Execute // открываем диалоговое окно выбора файла
then Edit1.Text:= Open1.FileName
else ShowMessage('Файл не выбран!');
end;
procedure TForm1.Button2Click(Sender: TObject);
var
f: file of byte; //Переменная для работы с файлом
str: byte; //Содержит считанный байт
oldstr, symbol, word, line, space: Integer;
begin
symbol:= 0; //обнуляем предыдущие результаты
word:= 0;
space:= 0;
line:= 0;
if FileExists(Edit1.Text) //проверяем, существует ли файл
then begin
AssignFile(f,Edit1.Text) ; //связываем файл с переменной f
reset(f); //открываем файл на чтение
while not eof(f) do
begin //читаем файл до достижения конца файла
oldstr:= str;
Read(f, str); //считываем символ в переменную str
if ((str <> 32) and (str <> 13) and (str <> 10))
then symbol := symbol + 1; {пополняем количество символов, если он не является переводом строки, кодом новой строки или пробелом}
//если считан пробел, пополним счетчик пробелов
if str = 32 then space:= space + 1;
if str = 13 then line:= line + 1; //счетчик строк
if ((str = 32) or (str = 13) or (str = 10)) then
if ((oldstr<>32) and (oldstr<>10) and (oldstr<>13))
then word: = word + 1; //счетчик слов
end;
CloseFile(f); //закрываем файл
end
else ShowMessage('Ошибка: Файл не найден !'); {если файл не найден, то выводим сообщение об ошибке}
Поделиться:
Популярные книги
Сборник коротких эротических рассказов
Любовные романы:
эро литература
love action
7.25
рейтинг книги
Курсант: Назад в СССР 7
7. Курсант
Фантастика:
попаданцы
альтернативная история
5.00
рейтинг книги
Вернувшийся: Первые шаги. Том II
2. Вернувшийся
Фантастика:
боевая фантастика
космическая фантастика
рпг
5.00
рейтинг книги
Солдат Империи
1. Страж
Фантастика:
попаданцы
альтернативная история
6.67
рейтинг книги
Вечный. Книга II
2. Вечный
Фантастика:
боевая фантастика
попаданцы
рпг
5.00
рейтинг книги
Неучтенный элемент. Том 3
3. Антимаг. Вне системы
Фантастика:
фэнтези
5.00
рейтинг книги
Авиатор: назад в СССР
1. Авиатор
Фантастика:
попаданцы
альтернативная история
5.25
рейтинг книги
Эволюционер из трущоб. Том 3
3. Эволюционер из трущоб
Фантастика:
попаданцы
аниме
фэнтези
фантастика: прочее
6.00
рейтинг книги
Буря империи
6. Медорфенов
Фантастика:
аниме
фэнтези
фантастика: прочее
эпическая фантастика
5.00
рейтинг книги
Слово мастера
11. Гибрид
Фантастика:
попаданцы
аниме
5.00
рейтинг книги
Эпоха Опустошителя. Том V
5. Вечное Ристалище
Фантастика:
аниме
фэнтези
попаданцы
5.00
рейтинг книги
Камень. Книга вторая
2. Камень
Фантастика:
фэнтези
8.52
рейтинг книги
Гримуар темного лорда V
5. Гримуар темного лорда
Фантастика:
попаданцы
аниме
фэнтези
5.00
рейтинг книги
На границе империй. Том 10. Часть 4
Вселенная EVE Online
Фантастика:
боевая фантастика
космическая фантастика
попаданцы
5.00