对已赋的工作任务能不能导出来重新保存成文档的形式？

john

procedure TMainForm.Button3Click(Sender: TObject);
var
  lBizUrl:TBizUrl;
  lOrgUnit: TOrgUnit;
  lFuncs:TOrgFuncAllocItems;
  ls:string;
  li:integer;
begin
  lBizUrl:=TBizUrl.Create;
  {lBizUrl为一个人员的URL}
  lBizUrl.URL:='Org:\ROOT\SWJS.OGN\CSB.DPT\CSY.PTM\test.psm';
  lOrgUnit:=OrgSys.OrgSystem.GetUnit(lBizURL);
  lFuncs:=TOrgFuncAllocItems.Create;
  lFuncs.Assign(lorgUnit.Module.RunFuncAlloc);
  for li:=0 to lFuncs.Count-1 do
  begin
    lBizURL.URL:=(lFuncs.Items[li] as TOrgFuncAllocItem).FuncURl;
    ls:=FileSys.FileSystem.FileGetDisplayName(lBizURL.FileName);
    Memo1.Lines.Add(lBizURL.URL+',FuncName='+ls);
  end;
end;