Delphi 没有找到指定文件则推出

在Delphi中，如果试图打开或访问一个不存在的文件，编译器或运行时环境通常会抛出异常。例如，如果你尝试读取一个未存在的文本文件，`TFileStream`类会引发`EAccessViolationException`（访问违规错误）[^1]。同样，在尝试连接到非存在的数据库时，可能会触发`SQLException`[^2]，这取决于所使用的数据库驱动。

要捕获这种错误并以更友好的方式处理，你可以编写代码来检查文件是否存在或者数据库连接是否成功。这里有一个简单的示例：

uses
  FileUtil, // 引入用于文件操作的模块

// ...

var
  MyFile: TFileStream;
begin
  try
    MyFile := TFileStream.Create('path_to_your_file.txt', fmOpenRead);
    // 处理文件内容...
  except
    on E: Exception do
      if E.ClassName = 'EAccessViolationException' then
        Writeln('无法打开文件，因为它不存在.');
      else
        Writeln('发生了未知错误:', E.Message);
  end;
end;

// 或者在数据库连接处
try
  ConnectToDatabase; // 假设这是你的连接函数
except
  on E: SQLException do
    Writeln('无法连接到数据库:', E.Message);
end;