unit RunFuncZYJ;
interface
uses
Business.System, Business.Model,Borland.Delphi.Windows;
type
TRunFuncZYJ = class(TBizLibrary)
private
{private declarations}
public
{public declarations}
Static function ARunFunc(AContext: TContext;AFunURL,AParam : String): TFunc;
end;
implementation
Static function TRunFuncZYJ.ARunFunc(AContext: TContext;AFunURL,AParam : String): TFunc;
begin
Result := SystemCore.TSystemCore.FuncManager.RunFunc(Acontext,'', AFunURL,AParam , nil, False);
end;
end.
就用昨天给我的测试程序 ,Borland.Delphi.Windows去掉就编译通过
不然就报 没有匹配的方法
我的是3012的版本 |