怎么写：函数的参数可有可无？如：

Question

function ggg(a1:string ;a2:integer):boolean;如果参数 a2 可有可无，应该怎么写呢？？？
调用时可以写：
procedure tform1.button1click(sender:tobject);
var
   flag:boolean;
begin   flag:=ggg('dddd');
或者是：
   flag:=ggg('ddd',18);end;

Answer 1

function ggg(a1:string ;a2:integer=0):boolean;

Answer 2

使用函数重载！function ggg(a1:string ;a2:integer):boolean; overload;
function ggg(a1:string ):boolean; overload;

Answer 3

function ggg(a1:string ;a2:integer=0):boolean;调用的时候，你就可以这样写：if ggg(a1) then
{...}

Answer 4

同意mrfanghansheng(☆☆☆木鱼☆☆☆)。