|
Вопрос # 4 228/ вопрос открыт / |
|
Приветствую, уважаемые эксперты!
Я задался сделать подсчёт символов в RichViewEdit. Задумка получилась, но не полностью. Не подсчитывается количество символов при переходе на новую строку (Ctrl + Enter), а это целых 2 (символа).
К вопросу прикреплён файл. Загрузить » (срок хранения: 60 дней с момента отправки вопроса)
 |
Вопрос задал: Shouldercannon (статус: Посетитель)
Вопрос отправлен: 25 мая 2010, 13:34
Состояние вопроса: открыт, ответов: 1.
|
Ответ #1. Отвечает эксперт: webkent
Здравствуйте, Shouldercannon!
Вот очень просто:......................
Приложение: Переключить в обычный режим- var i,col:integer;
- begin
- col:=0;
- for i:=0 to Length(Richedit1.Text)-1 do
- col:=col+1;
-
- Label1.Caption:=inttostr(col);
- end;
 |
Ответ отправил: webkent (статус: 2-ой класс)
Время отправки: 25 мая 2010, 13:48
|
Мини-форум вопроса
Всего сообщений: 6; последнее сообщение — 29 мая 2010, 19:53; участников в обсуждении: 5.
|
Ерёмин А.А. (статус: *Администратор), 25 мая 2010, 13:51 [#1]:
Length(RichEdit.Text) ?
|
|
|
webkent (статус: 2-ой класс), 25 мая 2010, 13:51 [#2]:
ахаха точно, ну и туплю =))
|
|
|
Shouldercannon (статус: Посетитель), 25 мая 2010, 14:14 [#3]:
Речь идёт о стороннем компоненте. RichViewEdit не имеет ни какого отношения к стандартному компоненту Delphi - RichEdit.
|
|
Death_Master (статус: Посетитель), 25 мая 2010, 15:13 [#4]:
Исключите символы перевода строки....
Обычно захожу по ночам... (60-70%)
Если нужно что-то написать, то беру оборудованием, деньгими и пивом(при личной встрече)...
P.S. Помогаю и рассказываю бесплатно ^_^.....Nyaaa!
|
|
Егор (статус: 10-ый класс), 29 мая 2010, 18:49 [#5]:
упс...
Цитата (webkent):
var i,col:integer;
begin
col:=0;
for i:=0 to Length(Richedit1.Text)-1 do
col:=col+1;
Label1.Caption:=inttostr(col);
end;
супер код!
бугага!
а вот так нельзя?
Label1.Caption:=inttostr( Length(Richedit1.Text) );
Опасайтесь багов в приведенном выше коде; я только доказал корректность, но не запускал его.
— Donald E. Knuth.
|
|
|
Shouldercannon (статус: Посетитель), 29 мая 2010, 19:53 [#6]:
Ребята ну вы даёте. Речь идёт про RichViewEdit. Уже нашёл способ
r := RVEMessage.GetTextLen;
PSymbol.Caption := IntToStr(r);
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
