5,388
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
wooden954 2003-08-30
- 打赏
- 举报
同意楼上各位
chl_ccssddnn 2003-08-30
- 打赏
- 举报
就是FileExists(FileName)判断
phm 2003-08-30
- 打赏
- 举报
FileExists(FileName)
47522341 2003-08-30
- 打赏
- 举报
顶楼。
97866 2003-08-30
- 打赏
- 举报
procedure TForm1.Button1Click(Sender: TObject);
var
sr: TSearchRec;
FileAttrs: Integer;
begin
if FindFirst('D:\Img\dfd.bmp', FileAttrs, sr) = 0 then
begin
aaaaaa
FindClose(sr);
end;
end;
var
sr: TSearchRec;
FileAttrs: Integer;
begin
if FindFirst('D:\Img\dfd.bmp', FileAttrs, sr) = 0 then
begin
aaaaaa
FindClose(sr);
end;
end;
ZyxIp 2003-08-30
- 打赏
- 举报
if FileExists(FileName) then
showmessage('存在')
else
showmessage('不存在');
showmessage('存在')
else
showmessage('不存在');
