Delphi直接读文本文件然后逐行读取数据的程序怎么写?急急急!
第一行就是str.Strings[0],第十行就是str.Strings[9];
var
str:tstringlist;
begin
str:=tstringlist.Create;
str.LoadFromFile(d:\a.txt);
form1.caption:=str.Strings[0]+ +str.Strings[9];
str.free;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
fFile : Textfile;
sLine : string;
begin
AssignFile(fFile,E:\book2.txt);
{$I-}
Reset(fFile);
{$I+}
if IOResult=0 then
begin
sArray := VarArrayCreate([0,0],varVariant);
while not Eof(fFile) do
begin
Readln(fFile,sLine);
end;
end;
CloseFile(fFile);
end;