菜鸟提问（关于函数）

Question

我有一个函数function TForm1.GenKeyValues: string
当函数的返回值为空的时候
出现提示错误
怎么写呢？

Answer 1

你可以写一个
try
except来判断返回值就行了.

Answer 2

function GenKeyValues: string;
begin
  result:='';
  //...end;
procedure TForm1.Button1Click(Sender: TObject);
var return:string;
begin
    return:=GenKeyValues;
    if length(return)=0 then
      showmessage('NONE')
    else
    begin
     //...
    end;
end;

Answer 3

function TForm1.GenKeyValues(a,b:string):string;
begin
  result:=a+b;
  if result='' then
    showmessage('输入值为空!');
end;