如何限制住MEMO里限制字数？和自动显示获取memo中输入的字数总结

Memo1.MaxLength   :=   400;

----------------------------------------------------------------------------------------

自动显示字数的代码总结：

支持

1.中英文

2.中英文状态下的符号

卢哥的软件实现不了,的原因是delphi5不支持unicode原来这就是unicode的好处,不管什么语言都统一一个字符

 

 

代码：

 

 

procedure TfrmMain.SmsContent_memoKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  //WordAutoCheck_label是红色的显示字数的红字
  WordAutoCheck_label.Caption := inttostr(length(SmsContent_memo.Lines.Text));
  WordAutoCheck_label.Refresh;
  if length(SmsContent_memo.Lines.Text) = 140 then
  begin
    MessageBox(0,'已达最大字数,不允许再输入','提示',MB_ICONASTERISK and MB_ICONINFORMATION);
  end;
end;