UC知道Delphi memo组件如何读取txt里的内容
来源：百度知道 编辑：UC知道 时间：2024/05/25 21:01:32
假设有一个路径 C:\WINDOWS\Temp\a.txt 我在窗体里添加一个memo组件和一个timer组件,怎么实现每隔1秒memo里面自动读取C:\WINDOWS\Temp\a.txt 里面的文字?
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;