Question

delphi读取txt中一行数字，然后显示在edit中显示，以下是写在timer中的代码。

这是timer中的代码，运行后只显示出txt中第一行的数字，我现在想让timer执行一次，就读取一行数字显示在edit中，procedure TForm2.Timer5Timer(Sender: TObject);var f:textfile; s:string; begin
assignfile(f,'abc.txt');
reset(f);
readln(f,s);
edit17.text:=s;
closefile(f);
我应该怎么改才能一次读txt中一行？对了，我txt中数据都是一行一个数，所以一次要读一行，现在就是不知道怎么一次读一行和怎么顺序执行下去，读完新的要把旧的以显示在edit中的数字取消掉

Answer 1

procedure TForm1.GetTitle;
  var
    list:TStringList;
    i:Byte ;
begin
   list:=TStringList.Create ;
   try
     list.LoadFromFile(currentpath +'tai.ini');
     for i:=1 to list.Count -1 do
      ti[i]:=list[i];
     list.LoadFromFile(currentpath +'biao.ini');
     for i:=1 to list.Count -1 do
      bi[i]:=list[i];
     list.LoadFromFile(currentpath +'date.txt');
     for i:=1 to list.Count do
      da[i]:=list[i-1];
      finally
        list.Clear ;
   end
end; 
这样可以吧txt文件中的数据读取到一个数组中。然后对数组进行操作。ini文件也可以的

Answer 2

用memo试一下呢
Memo1.Lines.LoadFromFile('文件名')
Edit1.Text:=Memo1.Lines.Strings[0];//固定读取第一行

或者把ini文件读到TStringlist中再操作。

追问

我想第一次读第一行，第二次读第二行，应该怎么写啊，代码是写在timer里面，timer一次循环读取下一行，请问怎么改才好

追答

声明一个全局变量 line
每读一次以后
line:=line+1;

追问

帅哥能帮忙把代码补全吗？我不常用delphi比较水谢谢啊，就是在原来代码基础上加上每次读一行的代码，还有需要添加哪些变量，谢谢

追答

var
Form1: TForm1;
line:integer;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Lines.LoadFromFile('d:\xx.ini');
line:=1;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Edit1.Text:=Memo1.Lines.Strings[line];//
if Line<Memo1.Lines.Count then
Begin
Line:=Line+1 ;
End
Else
Begin
Timer1.Interval:=0;
ShowMessage('已到最后一行');
End;
end;

Answer 3

你把reset去掉，并且把closefile也注释掉，试试。结果就出来了，有的时候就是要多试试。多分析。