lazarus中的try except

读取下txt文件试了下用try except来容错file not found错误。发现运行的时候总是报错。

program Project1;uses sysutils;const file_name='C:\Users\FanXiaoLei\Desktop\15.txt';var stextF:textfile;s :string;
begintrybeginassignFile( stextF,file_name);reset(stextF);while not eof(stextF) dobeginreadln(stextF,s);writeln(utf8decode(s));end;closeFile(stextF);end;excepton e:EInOutError do writeln('error:',e.message);end;readln;
end.

继续的话还会报错：

后来去英文论坛上爬了几楼。意思是try except不是很好的体验。可以通过其他的办法进行规避使用。后来有人提了下使用<运行不带调试>可以运行通过。我试了下确实可以的。

改用运行不调试以后就正常了：

当然规避使用也是可以的。我上面读取文件出现file not found错误可以先检查文件是否存在然后再决定后续处理就可以。

program readtxt;uses sysutils;const file_name='C:\Users\FanXiaoLei\Desktop\14.txt';var stextF:textfile;s :string;
beginif FileExists(file_name) thenbeginassignFile( stextF,file_name);reset(stextF);while not eof(stextF) dobeginreadln(stextF,s);writeln(utf8decode(s));end;closeFile(stextF);endelsewriteln(utf8decode('文件未找到'));readln;
end.

正常读取时：

lazarus中的try except相关推荐

在 Lazarus 中学习 OpenGL
在 Lazarus 中学习 OpenGL 教学网站 https://learnopengl-cn.github.io/ API 查询 https://docs.gl/ 创建窗口 Lazarus 可以在 ...
sqlsugar mysql连接字符串_通用数据访问组件UniDAC最新版本v8.2.4，支持Lazarus中的macOS 64位...
UniDAC(Universal Data Access Components)是一款通用数据库访问组件,提供了多个数据库的直接访问,如针对Windows的Delphi, C++Builder, La ...
lazarus开发android应用程序指南,Lazarus开发Android应用程序指南(2)
本指南版权由delphicn所有,QQ:1339838080(tom),转载请保留版权信息.文中难免有错,欢迎指正. 2．编译运行lazarus中的Android示例程序. lazarus安装包中自 ...
Lazarus下WinCE调试
Lazarus下的WinCE调试终于成功了,喜美了! 现在将调试步骤记下来,备忘,同时分享给需要的人. 需要的工具: 1.Lazarus + WinCE -- 废话,没有这个工具,何来调试之需! 2. ...
lazarus IDE技巧
1. lazarus软件技巧 1.1. writeln()输出调试信息需要在代码文件头部加入预编译 {$APPTYPE CONSOLE} 1.2. 参数提示与渐进搜索 1.3. 同步编辑 1.4. ...
lazarus生成Linux文件,Kylix的劲敌-开放源码的Lazarus[转]
Lazarus是一个用于Free Pascal的快速应用开发(RAD)的面向对象的Pascal集成开发环境(IDE). Lazarus是一个用于Free Pascal的快速应用开发(RAD)的面向对象 ...
下面linux程序中哪一个是调试器,【编程】noi2009笔试复习题（1）
noi2009笔试复习题第一部分:单选题 1. NOI 机试使用的操作系统是: A. Windows B. Linux C. MacOS D. Vxworks 答案:B 2. Linux 中为文件改 ...
GNU Make 使用手册（于凤昌中译版）
GNU Make 使用手册(中译版) 翻译:于凤昌 GNU make Version 3.79 April 2000 Richard M. Stallman and Roland McGrath 1 ...
Delphi使用CEF4Delphi制作Chromium谷歌内核浏览器
什么是CEF4Delphi? CEF4Delphi是由Salvador Díaz Fau创建的一个开源项目,用于在基于Delphi或Lazarus/FPC的应用程序中嵌入基于谷歌内核查看更多关于内 ...

lazarus中的try except

lazarus中的try except相关推荐

最新文章

热门文章