delphi读取文本(一行一行读入)

本文整理自网络，侵删。

 读文本，没办法一步到位吧？只能通过Memo来实现，先放置一个Memo组件，设置其为隐藏，并且不要让它自动转行，即WrodWrap属性设为False，这里必须要设，否则句子过长自动换行后，Memo会把它当成两行处理，然后把文件通过Memo1.Lines.LoadFromFile('文件名')载入。然后对这个Memo进行操作。
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:=Memo1.Lines.Strings[0];//固定读取第一行
Memo1.Lines.Delete(0);//把第一行删掉，让下面一行成为第一行
end;  

相关阅读 >>

Delphi 分解时间 �cdecodedate、decodetime … decodedatetime …

Delphi 2009 中 tstrings 与 tstream 的增强

Delphi getcomputername() getusername() 获取本机当前用户名

Delphi 分享三个随机字符串

Delphi 用wininet 单元实现 post提交数据

Delphi操作excel说明

Delphi循环遍历同类控件或所有控件

Delphi 使用代理服务器

[译]rad studio 10.4 新变化：面向控件的 vcl 样式管理

Delphi杀进程的两种方式

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi读取文本(一行一行读入)