Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

 
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 19.01.2011, 00:17
romanzi romanzi вне форума
Прохожий
 
Регистрация: 21.11.2010
Сообщения: 24
Репутация: 10
Стрелка Количество символов в memo

Надо, что бы label изображал количество (в цифрах) символов в мемо.

Вот код, пишет. что ошибка в "vаr"

Код:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
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.

lmikle: Для оформления кода есть специальные теги - code.
Ответить с цитированием
 


Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 08:41.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025