Разработать фрагмент урока и программу. Необходимо при чтении файла в Memo1 после всех слов вывести строку с сообщением о количестве прочитанных слов, например: «Прочитано 10 слов». При поиске в Memo2 тоже вывести сообщение: «Н...
Разработать фрагмент урока и программу.
Необходимо при чтении файла в Memo1 после всех слов вывести строку с сообщением о количестве прочитанных слов, например:
«Прочитано 10 слов».
При поиске в Memo2 тоже вывести сообщение:
«Найдено 5 слов»
Для вывода этих сообщений необходимо воспользоваться командами перевода целых чисел в символьный вид:
Sk:=inttostr(k); - sk – строка, k- целое число.
Кроме того нужно для получения результата сложить отдельные части
результирующей строки, например: s:=s+s1+s2;
Программу можно написать в среде визуального проектирования Lazarus и на языке Паскаль.
Гость
Ответ(ы) на вопрос:
ГостьМожно попробовать через функцию 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;
как то так.
Не нашли ответ?
Похожие вопросы