Количество символов в memo

[romanzi]

Надо, что бы 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.

[vovk]

procedure TForm1.Label2Click(Sender: TObject);
var
r, i, j: integer;
s: string;
begin
label2.caption:=inttostr(length(mem o1.text )); // длина текста в мемо

r:=0;
for i:=0 to memo1.lines.count-1 do
   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;

PS: asmodey1 ниже постом правильно заметил, если не нужно считать символы #13 и #10 то их количество надо отнять.
А подсчитать количество '?' легче используя стандартные функции pos и posex, хотя и так тоже можно.

[asmodey1]

Что за извращение ?
Количество символов считается элементарно :

Label1.Caption:=IntToStr(Length(Memo1.Lines.Text)-2*Memo1.Lines.Count);

Красным - это мы учитываем хвосты строк (0A,0D)...

[XeruH]

Сообщение от asmodey1

Что за извращение ?
Количество символов считается элементарно :

Label1.Caption:=IntToStr(Length(Memo1.Lines.Text)-2*Memo1.Lines.Count);

Красным - это мы учитываем хвосты строк (0A,0D)...

Поддерживаю. Это конечно если они нужны(0A,0D)

[evg_m]

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

описаня переменных (блок var) идет ДО ключевого слова begin

procedure TForm1.Label2Click(Sender: TObject);
var
r, i, j: integer;
s: string;

begin

а как считать символы (с учетом разделителей строк /без учета/ считать двойной разделитель #13#10 за один знак/ другие варианты ) дело вкуса втора прогрммы. Если он конечно знает о таких нюансах и они имеют для него какое либо значение.