【结】有一段代码烦请解释一下

huixiangtao

我看到一段代码，但是不知道是什么意思。
procedure TBGYWLC.ProcUnitBGSPGN1AfterFlowOut(Sender: TObject; Command: TFlowOutCommand);   
var
lInfo : TInfo;
lDataSet : TDataSet;
begin
  if Command.FlowControl.CurrentTask.State=TTaskState.tsFinished then
  begin
     lInfo := Command.FlowControl.Func.Context.Children[0].Owner as TInfo;
     lDataSet := lInfo.DataSetByID('BGXXSJJ');
……

Command.FlowControl.CurrentTask.State是什么？
这句： Command.FlowControl.Func.Context.Children[0].Owner as TInfo;
我就更是一点都不懂了，上一句好歹我还能猜测点。

shangxy

这个就是和环境相关的的东西了，关于环境可以搜索一下alang的分享帖子
首先Command.FlowControl.Func.Context是功能的环境
Command.FlowControl.Func.Context.Children[0]这个是功能的下面的第一个环境，功能下面的环境当然就是信息环境了，他的owner就是Tinfo

FBO

Command.FlowControl.CurrentTask.State是当前任务的状态

huixiangtao

谢谢，结贴！