Надо, что бы 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 );
if s= '?' then
inc(R);
end ;
end ;
end ;
end .
|
lmikle: Для оформления кода есть специальные теги - code.