怎样从文本文件里面一行一行读出到变量里面

Question

怎样从文本文件里面一行一行读出到变量里面

Answer 1

Var
  FList: TStringList;
  tmpStr: String;
Begin
  FList:= TStringList.Create;
  FList.LoadFromFile(TextFileName);
for i:=0 to FList.count-1 do
showmessage(FList[i]);

Answer 2

楼上的，谢谢你了一定给你分数的
不过还没有别的办法
比如用fileopen，这些函数来实现。

Answer 3

一次性载入到内存是不是有点太浪费了.不如READLN

Answer 4

var   F: TextFile;
  S: string;
begin
  if OpenDialog1.Execute then            { Display Open dialog box }
  begin
    AssignFile(F, OpenDialog1.FileName); { File selected in dialog }
    Reset(F);
    Readln(F, S);                        { Read first line of file }
    Edit1.Text := S;                     { Put string in a TEdit control }
    CloseFile(F);
  end;
end;

Answer 5

查帮助文件的
FileOpen, FileSeek, FileRead Example清楚

Answer 6

var   F: TextFile;
  s:string;
  Sl: tstringlist;
begin
  if OpenDialog1.Execute then            { Display Open dialog box }
  begin
    AssignFile(F, OpenDialog1.FileName); { File selected in dialog }
    Reset(F);
    while not eof(f) do
      begin
        Readln(F, S);                      
        sl.add(s);
      end;                           
    CloseFile(F);
  end;
end;

Answer 7

同意楼上tankkxx(冬天不要放火) 的说法.