问一个简单的函数使用

Question

我的意思是说函数回以我输入的第二个参数，即‘请输入编号’为提示错误
应该不用我在用showmessage('请输入编号!');，我怎么用那输入的第二个参数岂不是毫无意义了吗？

Answer 1

很简单
procedure TForm1.Button1Click(Sender: TObject);
begin
  if (CheckNotNull('Edit1','请输入编号!')) then
  exit;
end;
当不为空时退出函数，如果为空的话，函数自己会跳出'请输入编号!'