简单问题,如何限制一个MEMO控件的每一行只能输入<30个字符,超过就换行?

superqing 2005-07-20 03:09:19

简单问题,如何限制一个MEMO控件的每一行只能输入<30个字符,超过30个字符就自动换行?

...全文

183 4 打赏收藏转发到动态举报

写回复

用AI写文章

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

ztenv 2005-07-20

打赏
举报

可以，

liuyan55 2005-07-20

打赏
举报

顶

lovend 2005-07-20

打赏
举报

帮你顶

blender 2005-07-20

打赏
举报

前面先定义个变量
a,i:integer
procedure TForm1.Memo1Change(Sender: TObject);
begin
a:=length(memo1.Lines[i]);//这个判断一行有多少个字符了，如果要判断中文字符就用a>59
if (a>29) then
begin
i:=i+1;
a:=0;
memo1.Lines.Add('');//这个换行
end;
end;