Delphi memo组件如何读取txt里的内容
答案:2 悬赏:50 手机版
解决时间 2021-02-20 11:56
- 提问者网友：戎马万世
- 2021-02-20 06:09
假设有一个路径 C:\WINDOWS\Temp\a.txt 我在窗体里添加一个memo组件和一个timer组件,怎么实现每隔1秒memo里面自动读取C:\WINDOWS\Temp\a.txt 里面的文字?
最佳答案
- 五星知识达人网友：爱难随人意
- 2021-02-20 06:21
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;
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;
全部回答
- 1楼网友：山河有幸埋战骨
- 2021-02-20 06:45
procedure tform1.button1click(sender: tobject);
var
i : integer;
begin
memo2.clear;
if memo1.lines.count > 0 then
for i := 0 to memo1.lines.count do
memo2.lines.add(memo1.lines[i]);
end;
对不需要的内容进行判断，不写入
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯