Delphi4 有一个很傻的函数(10分)

  • 主题发起人 主题发起人 MicroStar
  • 开始时间 开始时间
M

MicroStar

Unregistered / Unconfirmed
GUEST, unregistred user!
FileExists的参数用*.* 的时候只在根目录下有用
如用FileExists('c:/txf/*.*')返回 False
 
而且只在C盘根目录下为True。
 
FileExists函数是针对与一个特定的文件的, 只能用来检查某一个文件是否存在,
不能用于检查某一类文件.
按道理来说在根目录下也不应该好用
 
hi, huizhang
FileExists不但可以检查某一个文件的存在,还可以用来检查某一类文
件,如*.zip,或*.z??等的存在。
 
直接用这段代码就可以了:
var
Handle: THandle;
FindData: TWin32FindData;
begin
Handle := FindFirstFile(PChar(FileName), FindData);
if Handle <> INVALID_HANDLE_VALUE then
//FileExists
end
 
Delphi真么会出现这样的问题,
无奈!浪费了我的爱!
 
接受答案了.
 
后退
顶部