|

楼主 |
发表于 2009-11-27 11:44:36
|
显示全部楼层
那个帖子写的判断是这个
procedure TRELEVANCYDOC.NewFileFromLocal(const AOSFileName: string); 过程中
。。。。。。。。。。。。
if not zwjUtils.TzwjUtils.RelevencyDocFileExists(lFileAttribute.DisplayName) then // 添加的
begin
TUnStructureDocUtils.NewFile(FDocOperationProvider.Resolver.DocContext,
lFileName, lFileAttribute);
AddListItem(lFileName, '', '', 0);
end
else begin
Dialogs.ShowMessage('文件 '''+lFileAttribute.DisplayName+''' 已经上传过了,要上传请改名');//防止上传同名文件,否则的话,即使上传的附件与其它时候上传附件显示名称相同的时候,也提示错误。
他所写的过程已经废弃不用了..
然后这个我不明白是甚么
if not zwjUtils.TzwjUtils.RelevencyDocFileExists(lFileAttribute.DisplayName) then . |
|