Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Компоненты Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 07.01.2008, 19:33   #1
Rahim1993
Пользователь
 
Аватар для Rahim1993
 
Регистрация: 27.12.2007
Сообщений: 67
Вопрос StatusBar должен показать сколько букв в Memo

Как сделать так чтобы, StatusBar показывал сколько букв в Memo?
Вложения
Тип файла: rar Text edit.rar (215.4 Кб, 23 просмотров)
S.R.H.(Rahim)
Rahim1993 вне форума Ответить с цитированием
Старый 07.01.2008, 19:46   #2
BOBAH13
Android Developer
Старожил Подтвердите свой е-майл
 
Аватар для BOBAH13
 
Регистрация: 19.02.2007
Сообщений: 3,708
По умолчанию

Ну сво-во у Memo вроде есть типа GetTextLen, или в другом случае Length(Memo.Lines.Text) и все присвоить той панели в StatusBar'а
BOBAH13 вне форума Ответить с цитированием
Старый 07.01.2008, 19:52   #3
GAGARIN-NEW
Познаю мир
Форумчанин Подтвердите свой е-майл
 
Аватар для GAGARIN-NEW
 
Регистрация: 05.10.2007
Сообщений: 387
По умолчанию

statusbar1.simpletext:=inttostr(len gth(memo1.text));
на скорую руку провериш ....
---
GAGARIN-NEW вне форума Ответить с цитированием
Старый 08.01.2008, 00:42   #4
Rahim1993
Пользователь
 
Аватар для Rahim1993
 
Регистрация: 27.12.2007
Сообщений: 67
Хорошо

Спасибо, все получилось
S.R.H.(Rahim)
Rahim1993 вне форума Ответить с цитированием
Старый 08.01.2008, 08:42   #5
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Цитата:
statusbar1.simpletext:=inttostr(len gth(memo1.text) );
Это с фразой "сколько букв в Memo?" несовместимо.
Можно в принципе вот так получить колво букв:

caption:=inttostr(length(memo1.Line s.Text)-((memo1.Lines.Count-1)*2));
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 08.01.2008, 09:03   #6
BOBAH13
Android Developer
Старожил Подтвердите свой е-майл
 
Аватар для BOBAH13
 
Регистрация: 19.02.2007
Сообщений: 3,708
По умолчанию

Ага... давайте еще пересчитаем именно "букв" а не других символов и цифр
BOBAH13 вне форума Ответить с цитированием
Старый 08.01.2008, 09:19   #7
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Вован13, я не против твоего ответа, я поправил заблуждения Гагарина, ибо его код посчитает также и разделители строк.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 08.01.2008, 10:28   #8
BOBAH13
Android Developer
Старожил Подтвердите свой е-майл
 
Аватар для BOBAH13
 
Регистрация: 19.02.2007
Сообщений: 3,708
По умолчанию

Та я понял что имеется ввиду коды 13, 10
BOBAH13 вне форума Ответить с цитированием
Старый 13.01.2008, 06:32   #9
Лёка
Пользователь
 
Регистрация: 09.01.2008
Сообщений: 42
По умолчанию

Цитата:
Сообщение от Stilet Посмотреть сообщение
....вот так получить колво букв:

caption:=inttostr(length(memo1.Line s.Text)-((memo1.Lines.Count-1)*2));
а я вообще не въехал во вторую половину срочик...разъясните пожалуста.
Лёка вне форума Ответить с цитированием
Старый 13.01.2008, 09:13   #10
BOBAH13
Android Developer
Старожил Подтвердите свой е-майл
 
Аватар для BOBAH13
 
Регистрация: 19.02.2007
Сообщений: 3,708
По умолчанию

Та после каждой строки идет разделитель строк коды #13, #10! Вот это два байта которые вычитают из общего кол-во т.е. вот это "-((memo1.Lines.Count-1)*2));"
BOBAH13 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите оценить, сколько может стоить проект. Его покупают - сколько взять? grenles Свободное общение 4 16.07.2008 09:38
StatusBar к WebBrowser Dux Общие вопросы Delphi 3 04.06.2008 12:00
WebBrowser и StatusBar tebeen Работа с сетью в Delphi 1 20.09.2007 22:02
В Memo сделать так, чтобы текст был разного цвета, разноцветный memo Artem Компоненты Delphi 3 07.09.2007 13:40
StatusBar Nasya Microsoft Office Excel 3 16.07.2007 10:26