Question

delphi 如何实现逐行读取.txt文件并显示实时显示

我想在界面中添加一个信息框，内容是根据提供的txt文件从第一行到最后一行逐一的读取并显示，每隔一段时间，如20s就刷新一次，并且这个txt文件是在不断的改变的，它也会在每隔20s就添加一条记录，不停断的继续。其实就像是显示不断变化的时间一样，不知道哪位能给我点意见。
补充：其实就是实时的读取txt文件的最后一行内容，请各位给点意见，谢谢！

Answer 1

打开文件 assign
reset一下
定位到文件最后一行
readln
显示内容,
关闭文件

定时器在20s后重新启动上面的步骤

Answer 2

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Memo1: TMemo;
Timer1: TTimer;
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
memo1.Lines.LoadFromFile('1.txt');
end;

end.

Answer 3

assignfile
reset
repeat
read
sleep(20*1000);
until
closefile