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