|
@@ -412,11 +412,13 @@ begin
|
|
Args:='';
|
|
Args:='';
|
|
for CurDef in ArgDefList do
|
|
for CurDef in ArgDefList do
|
|
begin
|
|
begin
|
|
- if Args='' then
|
|
|
|
|
|
+ if Args<>'' then
|
|
Args:=Args+',';
|
|
Args:=Args+',';
|
|
CurName:=GetName(ArgDef);
|
|
CurName:=GetName(ArgDef);
|
|
Args:=Args+CurName;
|
|
Args:=Args+CurName;
|
|
end;
|
|
end;
|
|
|
|
+ Args:=',['+Args+']';
|
|
|
|
+
|
|
|
|
|
|
InvokeStr:=InvokeStr+InvokeName+'('''+aDef.Name+''''+Args+')';
|
|
InvokeStr:=InvokeStr+InvokeName+'('''+aDef.Name+''''+Args+')';
|
|
|
|
|