【搞定】怎样在功能打开后重新调用用户输入参数的窗体？**

sean_phoebe

？？
什么意思？

alang

lParam := SystemUtils.TContextUtils.GetParam(Context,lUrl);
   stringlist.AddObject('KSSJ',lParam);
   stringlist.AddObject('JSSJ',lParam);

还有，你一个参数加入了两次，肯定不行，会出错的

sean_phoebe

我不太明白你的意思！
你是说我的：
stringlist := TStringList.Create;
还有：
lParam := SystemUtils.TContextUtils.GetParam(Context,lUrl);
   stringlist.AddObject('KSSJ',lParam);
   stringlist.AddObject('JSSJ',lParam);

这些代码是错的吗？
那应该怎么写？帮帮忙！

sean_phoebe

顶一下！

sean_phoebe

能不能尽快回复一下，我很着急！就差这个了！

alang

var
   stringlist: TStrings;
   lParam : TBizParam;
   lUrl : TBizUrl;
begin
   stringlist := TStringList.Create;
   lUrl := TBizUrl.Create;
   try
   lUrl.URL := 'Biz:\SCGLXT\YWCSZ.ParamGroup\KSSJ.Param';
   lParam := SystemUtils.TContextUtils.GetParam(Context,lUrl);
   stringlist.AddObject('KSSJ',lParam);
   lUrl.URL := 'Biz:\SCGLXT\YWCSZ.ParamGroup\JSSJ.Param';
   lParam := SystemUtils.TContextUtils.GetParam(Context,lUrl);
   stringlist.AddObject('JSSJ',lParam);
   SystemCore.TSYSTEMCORE.SystemInterface.EditParamsValue(Context, stringlist);
   finally
   lUrl.Free;
   stringlist.Free;
   end;
end;

sean_phoebe

搞定！
多谢啦！