Привет, Гость! Регистрация RSS
Вторник, 28.01.2025
Главная » Файлы » Основные файлы сайта
Программа, которая считает количество символов, слов и строк
[ Скачать с сервера (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)

Подпишись, чтобы получать свежие исходники!
Нравится
Категория: Основные файлы сайта | Добавил: Dark_Green | Теги: количество символов, количество слов, statusbar, Memo, посчитать, Строка состояния, количество строк
Просмотров: 11037 | Загрузок: 1404 | Комментарии: 5 | Рейтинг: 3.0/2

Другие примеры
Всего комментариев: 5
1 Blood  
0
хм а код то не полный, ты переменные забыл объявить и по этому не работает sad

С нетерпением жду полную версию wink

2 Dark_Green  
0
ну да, забыл указать переменные. просто они у меня были глобальными, поэтому когда выделял, упустил.
var n,i: integer;

Цитата
С нетерпением жду полную версию
Это и есть полная версия. Скачай исходник, убедишься.  smile

3 Blood  
0
Где исходники на сайте?
Тыкни пальчиком а то не вижу sad

5 Dark_Green  
0
Под названием статьи. над кнопками "поделиться" smile или кликни сюда.

4 Blood  
0
Все нашел, все работает и при том отлично работает!

Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]