), которая будет открывать окно обзора для выбора файла. Присвойте свойству Button1.Caption значение Обзор.
Для реализации выбора файла разместите на форме компонент OpenDialog категории Dialogs. Измените значение свойства Name этого компонента наOpen1.
Разместите на форме четыре компонента Label и присвойте их свойству Caption значения Слов, Символов, Пробелов и Строк. Расположите эти метки одну над другой вдоль левого края формы и установите свойства шрифта согласно табл. 3.2.
Таблица 3.2. Свойства шрифта компонентов Label
| Свойство | Значение | Пояснение |
|---|
| Font.Name | Courier New | Шрифт надписи |
| Font.Size | 12 | Размер шрифта надписи |
| Font.Style | [fsBold] | Стиль шрифта — полужирный |
Разместите на форме справа от каждого предыдущих четырех меток еще четыре компонента Label и присвойте им имена (свойство Name) words, symbols, spaces и lines. Присвойте значения свойствам этих меток согласно табл. 3.3.
Таблица 3.3. Свойства компонентов words, symbols, spaces и lines
| Свойство | Значение | Пояснение |
|---|
| Caption | 0 | Надпись метки |
| Font.Color | clRed | Цвет надписи — красный |
| Font.Name | Courier New | Шрифт надписи |
| Font.Size | 12 | Размер шрифта надписи |
| Font.Style | [fsBold] | Стиль шрифта — полужирный |
| Left | 112 | Отступ слева |
В правом нижнем углу формы разметим кнопку (компонент Button), по нажатию которой будут выполняться расчёты и выводиться все данные. Свойству Caption этой кнопки присвоим значение Статистика. На этом разработка формы завершена. Полученный результат должен примерно соответствовать рис. 3.1
Рис. 3.1. Форма Статистика
Разработка программного кода
В этой программе следует обработать только два события: нажатие кнопки Обзор и нажатие кнопки Статистика. Сначала — о кнопке Обзор:
>procedure TForm1.Button1Click(Sender: TObject);
>begin
> //начинаем обзор с текущей папки
> Open1.InitialDir:= GetCurrentDir;
> if Open1.Execute then Edit1.Text:= Open1.FileName //открываем диалоговое окно выбора файла
> else ShowMessage('Файл не выбран!');
>end;
Начинаем обзор с каталога, в котором в данный момент находится программа. Затем следует стандартная проверка: если файл не был выбран, то сообщаем об этом пользователю, иначе отображаем путь к файлу в поле Edit1.
При нажатии кнопки Статистика выполняется подсчет и отображение данных о выбранном файле:
procedure TForm1.Button2Click(Sender: TObject);
>var
> f: file of byte; //Переменная для работы с файлом
> str: byte; //Содержит считанный байт
> oldstr, symbol, word, line, space: Integer; //Стат. данные
>begin
