Как сделать пробел в делфи

Обновлено: 07.07.2024

Разработать программу, которая выводит статистику выбранного пользователем документа. Статистические данные включают в себя количество слов, символов, пробелов и строк.

Создадим новый проект Delphi и разработаем интерфейс программы. Измените значение свойства Caption главной формы на Статистика. Разместите на форме компонент Label категории Standard, и присвойте его свойствам значения согласно табл. 3.1.

Таблица 3.1. Свойства компонентаLabel, размещенного на форме Статистика

Свойство Значение Пояснение
Caption Статистика Надпись метки
Font.Color clRed Цвет надписи — красный
Font.Name Courier New Шрифт надписи
Font.Size 16 Размер шрифта надписи
Font.Style [fsBold] Стиль шрифта — полужирный
Left 128 Отступ слева
Top 3 Отступ сверху

Ниже разместите компонент Edit категории Standard (поле ввода), в котором будет храниться путь к обрабатываемому файлу. Справа от него разместим кнопку (компонент Button категории Standard), которая будет открывать окно обзора для выбора файла. Присвойте свойству 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. Форма Статистика

В этой программе следует обработать только два события: нажатие кнопки Обзор и нажатие кнопки Статистика. Сначала — о кнопке Обзор:

Начинаем обзор с каталога, в котором в данный момент находится программа. Затем следует стандартная проверка: если файл не был выбран, то сообщаем об этом пользователю, иначе отображаем путь к файлу в поле Edit1.

При нажатии кнопки Статистика выполняется подсчет и отображение данных о выбранном файле:

Если надо удалить из строки пробелы, обычно используют функции Trim:

  • Trim — удаление пробелов в начале строки и в конце
  • TrimLeft — удаление пробела в начале строки
  • TrimRight — удаление пробелов в конце строки

Но бывают ситуации когда данные функции бесполезны, например пробел находится в середине строки и их несколько

Удаление пробелов в середине строки

Для таких случаев можно воспользоваться StringReplace или AnsiReplaceStr

А тут начинается самое интересное, вы вроде задали старое значение и новое, но замена пробела так и не сработала, почему?

Да потому что код символа пробела другой. Тогда как определить код символа пробела и удалить его?

В моем случае код символа пробела был 160, я него определил через ord.

Добавить комментарий Отменить ответ

Рубрики

Свежие записи

Свежие комментарии

Условия обработки персональных данных

Сайт использует технические и персональные данные пользователей для получения маркетинговой и статистической информации. С условия обработки персональных данных посетителей можно ознакомиться по ссылке.

В случае Вашего не согласия с этими условиями - просим Вас покинуть данный сайт. Если Вы продолжаете находиться и использовать сайт - Вы автоматически выражаете свое согласие с условиями обработки персональных данных пользователей сайта

Читайте также: