Question

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

各位大侠,小弟向各位请教一个关于DELPHI读取文本的问题,
思路是这样的,用delphi打开问本,按一下Button1控件,EXIT1.TEXT控件则显示第一行,再按一下,则显示第二行，请问这个有没办法实现呢~希望能给出详细的代码,小弟在此万分感谢!!!!

Answer 1

——————————————回答是能！

用了几个全局变量，把你想要的程序搞出来了(不算太难＾－＾)。我运行了一下，没有问题！源码如下：

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
mylist:TStringlist;
i,a:integer;{i用来统计mylist的count，判断是不是到了mylist的最后一行；a用来重复递加，以便读取下一行}
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
a:=0;{赋a值为0，以便按button1时读mylist的第一行}
if fileexists('E:\aa.txt') then
begin
mylist:=TStringlist.Create;
mylist.LoadFromFile('E:\aa.txt');{读文件到mylist}
end;
i:=mylist.Count;{获得mylist的count}
button1.Caption:='开始';
edit1.text:='按[开始]键读第一行'；
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if a<>i then{判断a是否为i，既不是mylist的未尾}
begin
button1.Caption:='下一行';
edit1.Clear;{清除edit1的上一行内容}
edit1.Text:=mylist.Strings[a];{添加一行}
a:=a+1;{a值加1，既为下一行}
end
else{如果到mylist未尾，赋a值为0，从第一行重开始}
begin
a:=0;
edit1.Clear;
showmessage('此行为文件未行，点击从第一行开始');
edit1.Text:='请点击[重新开始]';
edit1.SetFocus;
button1.Caption:='重新开始';
end;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
mylist.Free;{释放mylist}
end;

end.

Answer 2

var
MyList:TStringList;
i:Integer;
begin
if FileExists('c:\test.txt') then
begin
MyList:=TStringList.Create;
MyList.LoadFromFile('c:\test.txt');
Edit1.Text:=MyList.Strings[i];
end;
MyList.Free;
end;

试了很久，没能实现一行一行的读。上面的语句可以实现读指定的行数。

Answer 3

读文本，没办法一步到位吧？只能通过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;