Подсчитать количество пробелов, вывести на форму слова, начинающиеся на букву "а"

@Кппкк · Регистрация: 23.04.2021

Студворк — интернет-сервис помощи студентам

Во внешнем файле имеется фраза содержащая несколько слов (не более 10). Подсчитать колличество пробелов, вывести на форму слова, начинающиеся на букву "а"
Помогите пожайлуста, я не понимаю, как это сделать.
Нужно в лазарусе. За ранее спасибо!

@Puporev · 02.06.2021, 19:13

Сообщение от Кппкк

вывести на форму слова, начинающиеся на букву "а"

Слова на кириллице или на латинице? Файл приложите в тему.

@Кппкк · 02.06.2021, 19:30 **[ТС]**

Текст должен быть на кириллице, внешний файл может быть любым. На пример, это может быть файл формата .txt. Создаётся простой блокнот, в него записываются какие-то слова и из него нужно считать эти слова, подсчитать кол-во пробелов и вывести слова, которые начинаются на букву "а".

@volvo · 04.06.2021, 13:30

Кодировка файла какая?
Нужно искать слова, начинающиеся только на строчную букву, или и на заглавную тоже?

Задавайте вопросы корректно, будет проще отвечать. Вот случай, когда файл в кодировке Win1251, и ищутся только слова, начинающиеся с заглавной буквы "а":

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
uses ..., LConvEncoding;
 
procedure TForm1.Button1Click(Sender: TObject);
var t, s : string;
begin
  Label1.Caption := '';
  t := CP1251ToUTF8(ReadFileToString('123.txt'));
 
  for s in t.Split([sLineBreak, '.', ',', ' ']) do
  begin
    Memo1.Lines.Add(s);
    if s.StartsWith('А', True) then Label1.Caption := Label1.Caption + s + sLineBreak;
  end;
 
  Label1.Caption := Label1.Caption + 'Количество пробелов = ' + IntToStr(t.CountChar(' '))
end;

На форме должен быть Label, туда будет записываться вся информация.

@Кппкк · 11.06.2021, 12:41 **[ТС]**

Почему лазарус подчёркивает вот эту часть кода - ReadFileToString ?

@volvo · 11.06.2021, 12:52

В uses надо добавить еще FileUtil (очень странно, что оно не добавляется автоматически, я, к примеру, точно не добавлял ничего в Uses который в интерфейсной части, просто не имею такой привычки, все, что можно добавить в Implementation - добавляю всегда там. Однако, сейчас посмотрел - в проекте FileUtil добавлен именно в Interface-ной части. Возможно при добавлении каких-то компонентов на форму оно само добавляется - не знаю)

@Кппкк · 11.06.2021, 13:05 **[ТС]**

Всё стало зелёным и компиляция прошла успешно, но на форме ничего не появилось, как быть?

@volvo · 11.06.2021, 14:01

Перестать думать, что вокруг все телепаты и прикрепить наконец архив проекта (без EXE-шника) и файл, с которым работаем.
Потому что я сейчас могу сказать, что у меня мой код отработал, и даже скриншот привести.

Подсчитать количество пробелов, вывести на форму слова, начинающиеся на букву "а"

И что теперь?

@Кппкк · 11.06.2021, 14:08 **[ТС]**

Посмотрите пожайлуста, я прекрепил проект

@volvo · 11.06.2021, 14:25

Это не полный проект. Лазарус его даже не откроет. Нужны все файлы *.lpi, *.res, *.lrs

А вообще - файл ни разу вне в кодировке Win1251, от в кодировке UTF8. Так что, в моем коде надо исправить 7-ю строку:

Pascal
7
t := ReadFileToString('123.txt');

, и все заработает. Слово, начинающееся на "А" в файл добавил:

@Кппкк · 11.06.2021, 14:30 **[ТС]**

Я не понимаю почему, но Лазарус у меня всё сохраняет только так, как я скинул. Можете прикрепить свой проект?

@volvo · 11.06.2021, 14:35

Нет. У меня код добавлен в проект размером в несколько мегабайт, мне лень вырезать все ненужное. Выше я написал, что нудно сделать. И показал результаты.

@Кппкк · 11.06.2021, 14:39 **[ТС]**

Разве сложно кинуть проект в zip папку? Пожайлуста, вы меня очень сильно выручите!!!

@Кппкк · 11.06.2021, 19:57 **[ТС]**

Я разобрался с с тем, как сохранять нужно файлы. В этом проекте все файлы кроме .exe
Посмотрите, просто у меня почему-то не работает.

@Кппкк · 11.06.2021, 20:54 **[ТС]**

УРА!!! У меня заработало, САПАСИБО БОЛЬШОЕ!!! ВЫ МЕНЯ СПАСЛИ)))))
Подскажите мне ещё один момент) Что нужно добавить, чтобы программа искала не только строчную букву, но и заглавную?!

@northener · 11.06.2021, 20:55

Обработчик нажатия на кнопку не привязан к самой кнопке

@Кппкк · 11.06.2021, 20:58 **[ТС]**

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

@Puporev · 11.06.2021, 21:21

Если ничего умного не посоветубт, то можно так.

Pascal
1
if (s.StartsWith('А',True))or(s.StartsWith('а', True)) then

@northener · 12.06.2021, 01:44

Сообщение от Puporev

Если ничего умного не посоветуЮт

Ну это только если volvo сможет сказать почему параметр IgnoreCase не работает как ему положено.

@Кппкк · 12.06.2021, 07:33 **[ТС]**

Здравствуйте ещё раз!) Я тут немного поработал почти доделал программку эту, но у меня есть последний вопрос.
Подскажите, пожайлуста, как сделать так, чтобы выскакивало окно с ошибкой, если пользователь введёт в файле больше 10 слов. Проект прикрепил. Выручите)
Я попытался это сделать и у меня даже получилось, но ошибка выскакивает при любом кол-ве слов и в лейбл не выводит слова, которые начинаются на букву "а".

Новые блоги и статьи Все статьи Все блоги /
Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это дополнительная запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая. . .	[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:
Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .

Подсчитать количество пробелов, вывести на форму слова, начинающиеся на букву "а"

Решение

Решение

@Кппкк 0 / 0 / 0 Регистрация: 23.04.2021 Сообщений: 18

	Подсчитать количество пробелов, вывести на форму слова, начинающиеся на букву "а" 02.06.2021, 17:43. Показов 5432. Ответов 34 Метки нет (Все метки) Во внешнем файле имеется фраза содержащая несколько слов (не более 10). Подсчитать колличество пробелов, вывести на форму слова, начинающиеся на букву "а" Помогите пожайлуста, я не понимаю, как это сделать. Нужно в лазарусе. За ранее спасибо! 0

@Кппкк 0 / 0 / 0 Регистрация: 23.04.2021 Сообщений: 18
	02.06.2021, 19:30 [ТС]
	Текст должен быть на кириллице, внешний файл может быть любым. На пример, это может быть файл формата .txt. Создаётся простой блокнот, в него записываются какие-то слова и из него нужно считать эти слова, подсчитать кол-во пробелов и вывести слова, которые начинаются на букву "а". 0

@Кппкк 0 / 0 / 0 Регистрация: 23.04.2021 Сообщений: 18
	11.06.2021, 12:41 [ТС]
	Почему лазарус подчёркивает вот эту часть кода - ReadFileToString ? 0

@volvo Супер-модератор 33399 / 21509 / 8236 Регистрация: 22.10.2011 Сообщений: 36,907 Записей в блоге: 12
	11.06.2021, 12:52
	В uses надо добавить еще FileUtil (очень странно, что оно не добавляется автоматически, я, к примеру, точно не добавлял ничего в Uses который в интерфейсной части, просто не имею такой привычки, все, что можно добавить в Implementation - добавляю всегда там. Однако, сейчас посмотрел - в проекте FileUtil добавлен именно в Interface-ной части. Возможно при добавлении каких-то компонентов на форму оно само добавляется - не знаю) 0

@Кппкк 0 / 0 / 0 Регистрация: 23.04.2021 Сообщений: 18
	11.06.2021, 13:05 [ТС]
	Всё стало зелёным и компиляция прошла успешно, но на форме ничего не появилось, как быть? 0

@volvo Супер-модератор 33399 / 21509 / 8236 Регистрация: 22.10.2011 Сообщений: 36,907 Записей в блоге: 12
	11.06.2021, 14:01
	Перестать думать, что вокруг все телепаты и прикрепить наконец архив проекта (без EXE-шника) и файл, с которым работаем. Потому что я сейчас могу сказать, что у меня мой код отработал, и даже скриншот привести. И что теперь? 0

@Кппкк 0 / 0 / 0 Регистрация: 23.04.2021 Сообщений: 18
	11.06.2021, 14:30 [ТС]
	Я не понимаю почему, но Лазарус у меня всё сохраняет только так, как я скинул. Можете прикрепить свой проект? 0

@volvo Супер-модератор 33399 / 21509 / 8236 Регистрация: 22.10.2011 Сообщений: 36,907 Записей в блоге: 12
	11.06.2021, 14:35
	Нет. У меня код добавлен в проект размером в несколько мегабайт, мне лень вырезать все ненужное. Выше я написал, что нудно сделать. И показал результаты. 0

@Кппкк 0 / 0 / 0 Регистрация: 23.04.2021 Сообщений: 18
	11.06.2021, 14:39 [ТС]
	Разве сложно кинуть проект в zip папку? Пожайлуста, вы меня очень сильно выручите!!! 0

@Кппкк 0 / 0 / 0 Регистрация: 23.04.2021 Сообщений: 18
	11.06.2021, 20:54 [ТС]
	УРА!!! У меня заработало, САПАСИБО БОЛЬШОЕ!!! ВЫ МЕНЯ СПАСЛИ))))) Подскажите мне ещё один момент) Что нужно добавить, чтобы программа искала не только строчную букву, но и заглавную?! 0

@northener пофигист широкого профиля 4769 / 3204 / 862 Регистрация: 15.07.2013 Сообщений: 18,612
	11.06.2021, 20:55
	Обработчик нажатия на кнопку не привязан к самой кнопке Миниатюры 1

@Кппкк 0 / 0 / 0 Регистрация: 23.04.2021 Сообщений: 18
	11.06.2021, 20:58 [ТС]
	Я вот только понял, что обработчик не был привязан. Сейчас у меня вопрос о том, как дополнить программу, чтобы она искала и строчную букву "а" 0