[romanzi]

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