Question

请教个delphi7自定义函数的问题，自定义函数时，如何把参数设为可选参数。

就像vb一样，在参数前加Optional，就表示后面的参数为可先参数。在调用这个函数或者过程时，这个参数可以不填。

Answer 1

可以用这样的方式：
例如：
procedure XXX(const A:string;B:integer=0);
//解释
//A参数，常规参数必填
//B参数，可填可不填，如果不填，会用默认值0
应用举例：
//XXX('hello') ---->B参数会默认使用0

//XXX('hello',10)---->B参数会使用10

参数不同时，也可以考虑使用重载。

------------------------------
以上希望对你有用。

追问

谢谢了

Answer 2

这个功能貌似DELPH本身实现不了！
不过可以换个思路，如果你的参数类型是一样的，可以用数组做参数！当然也可以用指针。
function TForm1.GetSum(const a: array of Integer): Integer;
var
i: Integer;
begin
result := 0;
for i := Low(a) to High(a) do
result := result + a[i];
end;
//调用

procedure TForm1.Button2Click(Sender: TObject);
begin
ShowMessage(IntToStr(GetSum([1, 2, 3, 4, 5, 6])));
end;

Answer 3

郁闷，我使用我的账号mit1208回复了，可是看不到，再回复就不让回复了，所以注册个小号回复吧！

1楼，Delphi这么强大，连个可选参数都不能设置啊？

函数：
function sum(const Value:Integer; const DefaultValue:integer=123):integer;
begin
result :=value + defaultvalue;
end;

//调用
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(IntToStr(sum(10)));
end;

如果参数不确定，可以使用数组。

追问

谢谢你的回答