getpoint方法出现的一个小问题

bird168

我在用delphi做cad的二次开发，遇到这样一个问题，就是使用getpoint方法时，提示expression expected but ',' found.代码如下：

procedure TForm1.Button1Click(Sender: TObject);
var
startpnt:variant;
begin
  startpnt:=acad.ActiveDocument.Utility.GetPoint(,'请输入绘图起始点:');
 end;

end.

这个问题很奇怪，因为把acad定义为acadapplication的时候会出现上述错误，但是把acad定义为olevariant时却不会出现上述错误。

bird168

希望有人能帮我解答！不胜感激！

lqchn

acad.ActiveDocument.Utility.GetPoint(nil,'请输入绘图起始点:');

不知道是不是这样?或者用null?反正delphi不能象vb那样省略参数而光写逗号.