如何一行一行读取文本文件

2013-01-07 03:10:24 779 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Delphi读取文本文件的最后一行 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Edit1: TEdit; 阅读详情

请教各位高手怎么样才能一行一行读文本文件
我下面的代码只能显示一行，请问该怎么修改呢？谢谢
integer li_FileNum

string ls_Emp_Input

long ll_FLength

ll_FLength = FileLength("C:\fdff\acc.txt")

li_FileNum = FileOpen("C:\fdff\acc.txt", lineMode!)

IF ll_FLength < 32767 THEN

FileRead(li_FileNum, ls_Emp_Input)

messagebox('',ls_Emp_Input)

END IF

...全文