关于TDBMemo的问题

Question

procedure DBDMEMOonkeydown(sender:object;key......);
begin
  if length(dbmemo.lines.text)>your range then
  key:=0;
end;

Answer 1

添加一个 MaxLength的属性，然后在onkeydown的时候进行检测，(最好捕捉MEMO内容改变事件)丢掉过长的字符……

Answer 2

if length(dbmemo.lines.text)>200 then
 abort;

Answer 3

谢谢各位，可能是我说的不够清楚吧，以上的三种方法我也会，我现在想问的是怎样写到单元中，打成pack包，直接把此控件放在窗体中就执行此功能？