[fofka]

Доброго дня!
Подскажите как можно проконтролировать количество внесенных знаков в Memo. Я пробовал таким методом, с пуском таймера, не работает. Может подскажите метод попроще?!

procedure TForm2.Memo1Click(Sender: TObject);///Пуск таймера
 begin
 MemControl1;
 end;

procedure TForm2.MemControl1;
 begin
 If Memo1.MaxLength > 1860
 Then MessageBox(handle,PChar('Внесенные данные не умещаются на листе. '+#13#10), PChar('Информация'), 48);
 end;

[Janom]

Код:

Label1.Caption:=IntToStr(Length(Memo1.Text));

Переход на следущую строку (нажатие Enter) считается за 2 знака (#13 #10)
Так узнать их, а запретить Просто: проверка сколько их есть и сколько можно внести, хоть в событии onChange...
Тут как вы хотите (сообщение вылетает, только знак все равно вводится):

Код:

procedure TForm1.Memo1Change(Sender: TObject);
begin
if Length(Memo1.Text)>=64 then
  MessageBox(handle,PChar('Внесенные данные не умещаются на листе. '+#13#10), PChar('Информация'), 48);
end;

[fofka]

Благодарю! Сейчас попробую у себя все это реализовать.

[M.A.D.M.A.N.]

Код:

memo.readonly := length(memo.text) >= 1024;