procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
var
l_Str : WideString;
begin
l_Str := Memo1.Text;
if Length(l_Str) > 885 then
key := #0;
end;
可以限制用户输入字符过长,但如果用户采用粘贴的方法,这段代码不会生效,
所以还要在Memo的OnExit里进行一次判断
procedure TForm1.Memo1Exit(Sender: TObject);
var
l_Str : WideString;
begin
l_Str := Memo1.Text;
if Length(l_Str) > 885 then
Begin
Application.MessageBox('您输入字符过多!','提示',64);
Memo1.SetFocus ;
end;
end;