问一个小问题~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Question

一个查询按钮在执行查询之前，先检查Edit1.Text属性，如果非空，按输入的内容进行查询，如果为空，停止执行，弹出警告信息，请问内容为空这块怎么写？是用NULL还是别的什么？谢谢

Answer 1

if trim(edit1.text)='' then
showmeesage('信息为空')
 else
  执行

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Edit1.Text='' then
  begin
    Application.MessageBox('请输入!','警告',MB_OK+MB_ICONWARNING);
    Exit;
  end;
  adoquery1.Open;
end;

Answer 3

可以了，是我Edit的序号搞错了，谢谢。