"03 Data ADO" demo compile error about xxm HOT 4 CLOSED

Problem is executing
cmd.Execute(v,EmptyParam,0);
but second parameter in Execute is defined using var
function Execute(out RecordsAffected: OleVariant; var Parameters: OleVariant; Options: Integer): Recordset15; safecall;

from xxm.

Ah yes. I've noticed newer Delphi versions have done something strange to EmptyParam. You can fix this for now just by adding a local var v1:OleVariant; then first v1:=EmptyParam; and then use that v1 instead of EmptyParam. I need it investigate further, but I guess Null could work also.

from xxm.

You are correct EmptyParam is declared as function since XE6 http://www.desiderata.com.au/blog/?p=652 in System.Variants.pas:
function EmptyParam: OleVariant;
begin
SetClearVarToEmptyParam(TVarData(Result));
end;
var v1:OleVariant;
v1:=EmptyParam;
is a correct way of using EmptyParam for function calls with vars.

from xxm.

I'll close this issue for now, and note down that maybe later I'll add var v:OleVariant; v:=EmptyParam; to the source. I've checked a project at work where we had the same problem, and there we settled for cmd.Execute(cmdText,POleVariant(nil)^,0) which also works (but is very, very ugly)...

from xxm.