如何读取文本文档的内容。

Question

一行是一个单词，如何将一行读入一个变量里，再读下一行。
又如何判断是否文件末尾？

Answer 1

var st:TStringList;i:integer;
begin
 st:=TStringList.Create;
 st.LoadFromFile('c:\test.txt');
 For i:=0 to st.Count -1 do 
 begin
   ShowMessage(st[i]);
 end;
 st.Free;
 
end;

Answer 2

应该不会的，你还可以用文件操作的方法来读取
var
 MyFile:TextFile;
 s:array[xx..xx] of string;//你也可以声明为动态数组
begin
 AssignFile(MyFile,'c:\test.txt');
 Reset(MyFile);
 try
  readln(MyFile,s[i]);//一行行的读
 finally
  closefile(MyFile);
 end;
end;

Answer 3

memo1.Lines.LoadFromFile('文件');
//某一行的数据
  memo1.Lines.Strings[i]
//总行数
  memo1.Lines.Count

Answer 4

上面说的都对在TextFile中
文件末尾用EOFAssignFile(MyFile,'c:\test.txt');
 Reset(MyFile);
 while not eof(MyFile) do
  readln(MyFile,s[i]);
  closefile(MyFile);
 end;