Разработать фрагмент урока и программу. необходимо - вопрос №5762942 от Amina5155 18.03.2021 14:39

Question

Информатика: Разработать фрагмент урока и программу. необходимо при чтении файла в memo1 после всех слов вывести строку с сообщением о количестве прочитанных слов, например: «прочитано 10 слов». при поиске в memo2 тоже вывести сообщение: «найдено 5 слов» для вывода этих сообщений необходимо воспользоваться перевода целых чисел в символьный вид: sk: =inttostr(k); - sk – строка, k- целое число. кроме того нужно для получения результата сложить отдельные части результирующей строки, например: s: =s+s1+s2; программу

Amina5155 · Answer

Можно попробовать через функцию Pos(Что ищем(Char), где ищем(строка)). Возвращает позицию символа(больше 0).

Итак примерный код такой:
//циклом проверяем наличие пробелов в строке и записываем позицию в переменную.

var words,position:integer;
while Pos(" ",text)<>0 do
begin
position:=Pos(" ",text);
Delete(text,position,1); //удаляем символы из строки с Позиции, в кол-ве 1 штука
Words:=words+1;
end;

как то так.