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

[PhoeniX]

var должен быть перед begin
И вообще:

Код:

procedure TForm1.Label2Click(Sender: TObject);
var
  r, i, j: integer;
begin
  label2.caption:=inttostr(length(memo1.text)); // длина текста в мемо
  r:=0;
  for i:=0 to memo1.lines.count-1 do
    for j:=1 to length(memo1.lines.strings[i]) do
      if copy(memo1.lines.strings[i], j, 1)='?' then
        inc(R); // увеличиваем результат
end;

[lmikle]

только надо помнить, что код:

Код:

label2.caption:=inttostr(length(memo1.text)); // длина текста в мемо

Вернет тебе кол-во символов, включая #13#10 на концах строк.