Question

Delphi memo组件如何读取txt里的内容

假设有一个路径 C:\WINDOWS\Temp\a.txt 我在窗体里添加一个memo组件和一个timer组件,怎么实现每隔1秒memo里面自动读取C:\WINDOWS\Temp\a.txt 里面的文字?

Answer 1

1、放置控件TMemo，TTimer
2、设置timer1属性，interval=1000(1秒)

双击Timer1，编写代码：
procedure TForm1.Timer1Timer(Sender: TObject);
var
fileName:String;
begin
memo1.Lines.Clear;

fileName:='C:\WINDOWS\Temp\a.txt';
//如果文件存在
if fileExists(fileName) then
memo1.Lines.LoadFromFile();
end;