[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.

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