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

[wgy081]

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

[fffddd]

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

[WWWWA]

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

[wgy081]

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

[smallflaybird]

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

[cjfzy]

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;

[noall]

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

清楚

[tankkxx]

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;