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

[PhoeniX]

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

Код:

1 2 3 4 5 6 7 8 9 10 11

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

[lmikle]

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

Код:

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

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