if FileExists(FileName) then showmessage('存在') else showmessage('不存在');
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;
showmessage('存在')
else
showmessage('不存在');
sr: TSearchRec;
FileAttrs: Integer;
begin
if FindFirst('D:\Img\dfd.bmp', FileAttrs, sr) = 0 then
begin
aaaaaa
FindClose(sr);
end;
end;