我想读取文本文件某一行该怎么写?

[dreamgoal]

比如说我想读取一个文本文件的第98行到一个String变量里,该怎么写?

[riddler]

先将文件读到Tliststrings中，然后用items[index]即可

[zx_wang]

var
fileList: TStringList;
str: String;
begin
fileList := TStringList.Create;
try
fileList.LoadFormFile('YouFile');
str := fileList[97];
finally
fileList.Free;
end;
end;

[lvloj]

with TMemo.create(Self) do
try
Parent := Self;
Lines.LoadFromFile(filename);
S := Lines[97];
finally
Free;
end;

[yzfcat_fish]

读取文本文件的函数是assigngile();加readin();你可以试试。具体的可以看看dephi的帮助文件中关于系统的一块，有详细的说明

[wangda]

用assigngile();打开文件，有参数的
readin();读可以读行

[dreamgoal]

如果用TStinglist的话,遇道大一点的文件就太慢了.

[eulb]

实际上你应该看看TStringList的源代码，会有所启发的

[dreamgoal]

Readln(F, S); 好像不行？怎么指定读某一行呢？

我再看看TStingList的源码。

[hch_d]

var
fileList: TStringList;
str: String;
begin
fileList := TStringList.Create;
fileList.LoadFormFile('FileName');
str := fileList[97];
end;

[yuanshengbing]

Readln(F, S);不能读取指定行，只能一行一行顺序读取

[dreamgoal]

我试了，TStringList只要文件大一点，速度就很慢了。

[johnmack]

var
fileList: TStringList;
str: String;
begin
fileList := TStringList.Create;
fileList.LoadFormFile('FileName');
str := fileList[97];
end;