【 各位高人帮一下忙】如何对一文本文件做如下操作？

Question

一文本文件有如下内容：
第一行
第二行
第三行
……
①如何在程序中分别取出其各行的内容？并用几个label来显示出来。②如何在程序总动态的对某行的内容进行修改呢？

Answer 1

var
tt:tstringlist;
i:integer;
begin
  tt:=tstringlist.create;
  tt.LoadFromFile('m:\xx.txt');
  for i:=0 to tt.count-1 do
  begin
    label.caption:=tt[i];
  end;
  tt[2]:='fffdsfdsfdfdsfdf'; //对第二行修改
  tt.savetofile('m:\xx.txt');
  tt.free;
end;

Answer 2

用几个label来显示
定义n个label
for i:=0 to tt.count-1 do
  begin
    Tlabel(Findcomponent('label'+inttostr(i))).caption:=tt[i];
  end;keke,抢点分

Answer 3

我也顺便问一问
TextFile中怎么定位到第n行
应该是可以的，Readln不就是指针在移动吗？

Answer 4

呵呵，如果更直观一点，你可以使用memo 载入该文件，
然后
memo1.line[i] 就可以取得第i 行的全部字符然后 可以进行你的操作

Answer 5

我现在都是先读到一个TStringList中再读取
但是文件比较大时读取时间过长 很不好
Seek对于文本文件不能用