【参考答案】
Begin
begT:=20210101T;
EndT:=20211231T;
obj := createobject('MyPortfolio');

//********************回测基本设置***************************//
//回测开始时间
obj.FBegT:=BegT;
//回测截止时间
obj.FEndT:=EndT;
//调仓周期(以月线为例)
obj.FCycle:=cy_month();
//组合类别(比例类组合)
obj.FGroupType:=1;
//基准代码
obj.FIndexId:='SH000300';
//初始资金
obj.FIniCash:=1000000;
//资金配比方式：用户自定义
obj.FRateType:=-1;
//成交价类别：日均价
obj.FPriceType:=3;
//成交量取整模式：根据证券类型取整
obj.FVolModType:=-1;
//是否分红再投资：分红不再投资
obj.FDividendType:=0;
//是否参与配股：不参与配股
obj.FAllotmentType:=0;

//********************用户自定义参数***************************//
obj.FFeeRate:=0.3; //费率
//回测
obj.BackTest();

//获取返回结果（返回结果可根据需要选择）
return array(
//---组合基础
"交易明细":obj.GetTradeData(BegT,EndT),
"资产配置":obj.GetAssetData(BegT,EndT),
"持仓明细":obj.GetHoldData(BegT,EndT),

//---组合盈亏、交易
"组合盈亏":obj.GetGainandLoss(BegT,EndT)
);
End;
//新建类MyPortfolio继承回测基类TSBackTesting
Type MyPortfolio=class(TSBackTesting)
FFeeRate;
//重写GetTradeOrder，
function GetTradeOrder(vEndT);override;
begin
t := array();
t[0,'代码']:='SH600000';
t[0,'比例(%)']:=40;
t[0,'日期']:=vEndT;
t[1,'代码']:='SZ000002';
t[1,'比例(%)']:=60;
t[1,'日期']:=vEndT;
Update t set ['开仓费率(%)']=FFeeRate,['平仓费率(%)']=FFeeRate end;
return t;
end
End;