怎样把文件中的数据一行行读出来？

Question

假设我的txt文件中是这样的：
001 000000000 003
002 000000000 002
003 000000000 006我希望先读一行，处理完后再接着读出下一行，直到结束，不知如何实现？

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
 for i:=0 to form1.Memo1.Lines.Count-1 do
   begin
   showmessage(memo1.lines.Strings[i]);
   end;
end;

Answer 2

Readln这么经典的基本输入输出都有人忘掉了？从Turbo Pascal就有的标准函数。
用法：
var
  F: TextFile;
  Temp_Str: String;
begin
  Assign(F, 'demo.txt');
  Reset(var F );
  repeat
    Readln(F, TempStr); // 读一行到换行符
  until Eof(F); // 文件结束
end;

Answer 3

你是要把文本文件的内容读出做什么处理,能说清楚一点吗???比如显示在一个MEMO中!!

Answer 4

to  yanhuizen(星河谷) :把读出来的数据存入数据库。例如把001 ，000000000 ，003分别存入数据表的三个字段

Answer 5

to  ghyghost(著名关心CSDN结贴率爱国主义人士) ：我不想先把txt文件的内容读入memo后再处理，怎么做？

Answer 6

不想先把TXT文件的内容放到MEMO再做处理，，这样解决：声明一个tstringlist类的实例，，然后用add方法进行添加，，添加完成后这样：var
aa:tstringlist;
......创建.....
for i:=0 to aa.count-1 do
begin
在这内容中你可以分解中每一项的字符串了，然后就可以把分解出的字符串放到不同的字符中
end;

Answer 7

直接
f:textfile;
assignfile(f,'路径');
readln()
搞定

Answer 8

给你参考一下：var
    MyTextFile: TextFile;
    s : string;
begin
    AssignFile(MyTextFile,fileDir.Text+fileName.Text);
    Reset(MyTextFile);
    while not eof(MyTextFile) do
     begin
readln(MyTextFile,s);
mFile.Lines.Add(s)
     end;
    CloseFile(MyTextFile);