Question

关于Delphi中的try except end语句疑问？

例如：
var
F:TextFile;
S:String;
begin
AssignFile(F,’f1.txt’);
try
reset(F);
try
readln(F,s);
finally
CloseFile(F);
end;
except
on EinOutError do //请问这里的EinOutError是什么东西，它是本来就存在的，还是自己定义的，如果是自己定义的，那是怎么定义的呢？
ShowMessage(’Error in FileIO’);
end;
end.

Answer 1

try
...
except
on......do
...
end;

这个是一种异常处理，表示只处理 on 标识符后面的异常，而这里的 EinOutError 是I/O异常类，是程序运行时试图对文件或外设进行操作失败后产生的。