var
i,j: integer;
lTask: TTask;
begin
for i := 0 to FlowBroker.FlowControl.Flow.Tasks.Count -1 do
begin
lTask := FlowBroker.FlowControl.Flow.Tasks;
if (lTask.ProcUnitID = 'JXXCFXPG_JXBM_YH') and (lTask.State in Task.SUnFinishedTaskStates) then
begin
for j := 0 to lTask.TaskMessages.Count - 1 do
if (lTask.TaskMessages[j].State in Task.SUnFinishedTaskStates) then
lTask.TaskMessages[j].State := TTaskMessageState.tmsCanceled;
lTask.State := TTaskState.tsCanceled;
lTask.SaveToDB;
end;
end;
end;
按提供参考的代码 有两个问题请教
1.(lTask.TaskMessages[j].State in Task.SUnFinishedTaskStates)
编译错误提示 incompatible types: "TTaskState" and "TTaskMessageState"