关于在COM中使用可选参数的研究(2)

s3 := '''' empty ''''

else

S3 := '''' not empty '''';

ShowMessage(Format(''''Param1[%s] Param2[%s] Param3[%s] Param4[%d]'''',[Param1, s2, s3, Param4]));

end;

procedure TForm1.Button1Click(Sender: TObject);

var

V: Variant;

begin

V := IDispatch(CoOptionalParamsDemo.Create());

V.GetParams(''''123'''');

end;

procedure TForm1.Button2Click(Sender: TObject);

var

AIntf: IOptionalParamsDemo;

V: Variant;

begin

AIntf := CoOptionalParamsDemo.Create();

// AIntf.GetParams('''''''', EmptyParam, 9, 4);

V := IDispatch(AIntf);

// V.GetParams(''''123'''', ''''123'''', ''''123'''', ''''123'''');

V.GetParams();

end;

procedure TForm1.Button3Click(Sender: TObject);

var

AIntf: IOptionalParamsDemo;

V: Variant;

begin

AIntf := CoOptionalParamsDemo.Create();

// AIntf.GetParams('''''''', EmptyParam, 9, 4);

V := IDispatch(AIntf);

V.GetParams(''''123'''', ''''123'''');

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有