var
i : Integer;
lFlowTask: TFlowTask;
begin
for i := 0 to Command.AllowFlowTasks.Count -1 do
begin
lFlowTask := Command.AllowFlowTasks;
lFlowTask.Priority := TTaskPriority.tpHigh;
lFlowTask.Subject := ?+?;这个怎么拼了?。。。。。。
end;
end;
var
i : Integer;
lFlowTask: TFlowTask;
begin
for i := 0 to Command.AllowFlowTasks.Count -1 do
begin
lFlowTask := Command.AllowFlowTasks;
lFlowTask.Priority := TTaskPriority.tpHigh;
lFlowTask.Subject := lFlowTask.Subject +'【紧迫度:高】';//因为你上面用的是tpHigh,所以这里直接是高。
end;
end;
最初由 zfang 发布
[B]var
i : Integer;
lFlowTask: TFlowTask;
begin
for i := 0 to Command.AllowFlowTasks.Count -1 do
begin
lFlowTask := Command.AllowFlowTasks;
..