Name: Программа, которая считает количество символов, слов и строк
Item: Программа, которая считает количество символов, слов и строк
Author: Blood

Главная » Файлы » Основные файлы сайта

Программа, которая считает количество символов, слов и строк

[ Скачать с сервера (208.3 Kb) ]	26.10.2012, 23:11
Мы будем создавать программу, которая считает сколько слов, строк и символов вы ввели в memo. (см. рисунок) И так, бросаем на форму компоненты Memo и StatusBar. Сначала создаем три панелей в строке состояния (StatusBar): 0 - Символов: 0 1 - Слов: 0 2 - Строк: 0 Далее прописываем следующие коды: procedure TForm1.Memo1Change(Sender: TObject); Begin n := 0; for i := 0 to Length (Memo1.Text) do begin if (Memo1.text[i]<>' ') and ((Memo1.text[i+1]=' ') or (Memo1.text[i+1]=#13)) then n:=n + 1; end; statusbar1.Panels[1].Text:='Cлов: '+IntToStr(n); statusbar1.Panels[0].Text:='Cимволов: '+IntToStr(Length(Memo1.text)-(Memo1.Lines.Count-1)2); StatusBar1.Panels[2].Text:='Строк:'+IntToStr(Memo1.Lines.Count); end*; Вот и все! Дерзайте. Скачать (208.3 Kb) Подпишись, чтобы получать свежие исходники! Нравится
1 2 3 4 5 Категория: Основные файлы сайта \| Добавил: Dark_Green \| Теги: количество символов, количество слов, statusbar, Memo, посчитать, Строка состояния, количество строк
Просмотров: 10735 \| Загрузок: 1358 \| Комментарии: 5 \| Рейтинг: 3.0/2

Другие примеры

»	Программа, которая пересчитывает скорость ветра из "метров в секунду" в "километров в час". (0)

»	Программа «Счастливый билет» (0)

»	Графический редактор. Загрузка изображения из графического файла с использованием стандартного диалога открытия графических изображений (0)

Всего комментариев: 5

Порядок вывода комментариев: