|
发表于 2008-4-29 10:54:17
|
显示全部楼层
楼主,这是另存为的函数:
procedure TRELEVANCYDOC.SaveToLocal;
var
I: Integer;
lToOSFileName, lOSFileName: string;
lListItemData: TListItemData;
lStringList: TStringList;
begin
SaveDialog.FileName := ListView.Selected.Caption;
if not SaveDialog.Execute then
Exit;
lStringList := TStringList.Create;
try
lOSFileName := SaveDialog.FileName;
{ if SysUtils.FileExists(lOSFileName)
and not JSDialogs.ConfirmBox(SysUtils.Format('%s 已经存在,要替换它吗?', [lOSFileName]), '', 1) then
continue;}
lStringList.Add(SysUtils.Format('%s=%s', [SelectedListItemData.DocURL, lOSFileName]));
for I := 0 to lStringList.Count - 1 do
SaveToLocal(lStringList.Names[I], lStringList.Values[lStringList.Names[I]]);
finally
lStringList.Free;
end;
end;
可以在这里修改一下 |
|