大虾们,问一简单个问题

Question

请问对一个文件的内容怎么样进行逐行读取并把每行的内容附值给一个变量;是用readln吗?应该怎么样写,谢谢!!!!

Answer 1

如果逐行读取可以用stringlist来loadformfile('....')来读取
然后
for i:= 0 to stringlist.length-1//伪代码
  Showmessage(...)  //stringlist内容

Answer 2

请问伟大的大伟,stringlist是什么来的,怎么样和loadfromfile连起来呢?

Answer 3

我来写一个例子：
procedure TForm1.Button1Click(Sender: TObject);
var
  SL: TStringList;
begin
  SL := TStringList.Create;
  try
    //假设你的文件是'C:\TEST.TXT'
    SL.LoadFormFile('C:\TEST.TXT');
    //做你的事，即可
    //SL.Count //<--这个表示多少行
    //SL.Strings[0]; //<--表示第0行
  finally
    SL.Free;
  end;
end;