摘要:
昨天发现服务端上传的文件出问题了,在kbmMW文件服务的root目录下,产生了上万的文件。造成服务不能正常运行,为什么会产生这样的现象呢? 最后发现原来客户在上传文件时有问题,看下面的代码: function RenameFile(aFile:string):string; var rp,fn,ex 阅读全文
摘要:
procedure TPageListDialogFrame.ListView1ScrollViewChange(Sender: TObject); var allheight: real; begin with Sender as TListView do begin allheight := S 阅读全文