Question

delphi怎么保证EDIT不为空

如题，保证EDIT控件不为0，这样来保证数据库的约束性

Answer 1

if (trim(edit1.text)='') then begin
showmessage('空！');
exit;
end
这只是提示不能空，不为空你还需要把输入的东西清除掉！
key=chr(0)

Answer 2

if edit.text=0 then showmessage('edit不能为0');

或
if edit.text=''then showmessage('edit不能为空');

不能为空，还是不能为0啊？？

Answer 3

if (Trim(Edit1.Text<>'')) and (Trim(Edit1.Text<>'0')) then
begin
//操作数据库
end;

Answer 4

if (trim(edit1.text)='') then begin
showmessage('空！');
exit;
end if

Answer 5

edit1 有一个onchange事件

if edit.text=0 then
begin
showmessage('edit不能为0');
exit;
end;