如何在函数中写提示信息？是否可以？

Question

我有一个函数，是为了一个复杂的计算而写的，其中我用到一些参数，是用要进行设置的，我想在函数当中出提示信息，如果参数为0时，提示需要对参数进行设置，如何实现？是不是函数当中不能有提示信息，我随便写个ShowMessage也不执行？

Answer 1

function TestFunc(I: Integer): Boolean;
begin
  if I = 0 then ShowMessage('需要对参数进行设置');
  Return := False;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
  TestFunc(1);
end;

Answer 2

可以写的……对话框后跟个EXIT看看
不知道是不是你那种意思
procedure TForm1.Button1Click(Sender: TObject);
begin
  dd('');
end;procedure TForm1.dd(aa: String);
begin
  if aa = '' then
  begin
    showmessage('aa是空');
    exit
  end;
  showmessage('可以执行')
end;