lazarus读文本文件的源码/例子/DEMO

bugxiong

群里有个同志问读文本文件的方法。为了让大家都可以了解的到，不会再遇到类似的问题，现将我文本文件的方法贴下。
本方法在win/linux下都运行OK，utf8/gbk/gb2312都OK

2.   try
3.     strTxt := '';
4.     AssignFile(mytextfile, strFileName);   //打开文件
5.     Reset(mytextfile);    //打开并读取文件
6.     //把文件内容记入字符串
7.     while not eof(mytextfile) do
8.     begin
9.       Readln(mytextfile, rTmp);
10.       strTxt := strTxt + rTmp;
11.     end;
12.     CloseTxt;   //关闭文本文件
13.     result := true;
14.   except
15.     result := false;
16.     CloseTxt;
17.   end;   

复制代码

xzhifei

嗯,貌似与DELPHI没有区别

猫工

lazarus和delphi很相像

涛儿

lazarus貌似听说是兼容Delphi5的吧。。。。

lz_whj

哈哈,学习下先..

pleasenter

readln是往下读的，请问有没有往上读的，就是倒序读的？

yl9931

嗯,貌似与DELPHI没有区别

xusonglie

学习中

backup

倒着读？
貌似没有吧！
你把源文本逆序一下而后顺序读呗！

sgzhou12345

谢谢分享,努力学习中