关于edit输入字符长度的判断。

Question

我要将edit的字符写到数据库的表里的一个字段，但是该字段长度有限制（5个），
如何判断edit的输入字符超出5个或者在5个内但是后面有空字符，显示出错窗口。该如何判断？

Answer 1

if length(trim(Edit1.text))>5 then
   showmessage('长度已经超过5个！');

Answer 2

在EDIT的ONKEYPRESS事件里写下：
var
  strTemp : string;
  i       : integer;
if Key = #13 then
begin
  strTemp := Edit1.text;
  i := Length(strTemp);
  if i > 5 then
   showmessage('Error')
  else begin
    if strTemp[i - 1] = '' then
      showmessage('有空格');
  end;
  
end;

Answer 3

不用！edit有一个maxlength的属性！

Answer 4

在EDIT的ONKEYPRESS事件里写下：
var
  strTemp : word;
  i       : integer;
Key=strTemp+Pchar(Key)
if Length(strtemp)>5  then
MessageBox(0,'','',Mb_ok);