delphi opendialog问题

来源：百度知道 编辑：UC知道 时间：2024/09/23 16:49:01
我用这个控件打开一个已经存在的文件是可以正常实现的，但是打开一个不村咱的文件就报错，我希望打开不存在的文件会有一个提示，而不是报错，应该怎么做啊，我是个新人

//打开不存在文件时候报错，不是对话框问题，而是你处理的问题。
你可以在处理之前判断文件是否存在，不存不进行下面处理就可以了
，下面o1是个对话框控件：
procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
//判断文件是否存在
Function File_IfExist(FileName: String): boolean ;
Begin
result := true;
Try
If Not fileexists(FileName) Then
result := false;
Except
result := false;
End;
End;
begin
if o1.Execute then
begin
if not File_IfExist(o1.FileName) then
begin
//给个文件不存在的提示
abort;
end;

s:=o1.filename;
end;
end;