|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
19.01.2011, 00:14 | #1 |
Пользователь
Регистрация: 07.11.2010
Сообщений: 87
|
Количество символов в memo
Надо, что бы label изображал количество (в цифрах) символов в мемо.
Вот код, пишет. что ошибка в "vаr" procedure TForm1.Label2Click(Sender: TObject); begin var r, i, j: integer; s: string; label2.caption:=inttostr(length(mem o1.text )); // длина текста в мемо begin r:=0; for i:=0 to memo1.lines.count-1 do begin for j:=1 to length(memo1.lines.strings[i]) do begin s:=copy(memo1.lines.strings[i], j, 1); // копируем j символ строки в переменную S if s='?' then inc(R); // увеличиваем результат end; end; end; end. |
19.01.2011, 02:01 | #2 |
!=
Участник клуба
Регистрация: 08.09.2008
Сообщений: 1,751
|
Код:
А подсчитать количество '?' легче используя стандартные функции pos и posex, хотя и так тоже можно. Последний раз редактировалось vovk; 19.01.2011 в 02:24. |
19.01.2011, 02:04 | #3 |
Подтвердите свой е-майл
Регистрация: 19.12.2010
Сообщений: 808
|
Что за извращение ?
Количество символов считается элементарно : Код:
|
19.01.2011, 02:19 | #4 |
Форумчанин
Регистрация: 17.09.2010
Сообщений: 229
|
Поддерживаю. Это конечно если они нужны(0A,0D)
Правильно заданный вопрос - половина ответа!
|
19.01.2011, 10:41 | #5 | |
Старожил
Регистрация: 20.04.2008
Сообщений: 5,528
|
Цитата:
Код:
программа — запись алгоритма на языке понятном транслятору
Последний раз редактировалось evg_m; 19.01.2011 в 10:45. |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Что делать, если количество символов в билдере не соответствует количеству символов в билде? | BoT_T | Общие вопросы Delphi | 0 | 16.11.2010 10:42 |
количество символов | sergeiqwe | PHP | 1 | 16.05.2010 00:08 |
Количество символов в Memo | ARXangel | Общие вопросы Delphi | 6 | 13.02.2009 11:35 |
Количество символов в memo | littlecoder | Общие вопросы Delphi | 9 | 28.12.2008 05:54 |
количество цифр и количество символов до первой гласной буквы | 111111 | Общие вопросы C/C++ | 2 | 22.12.2008 12:15 |