读取文件内容更快的方式
我要实现的功能是读取DBC或TXT文件,然后将每行按照一定语法格式分解 显示在对应位置
我先使用readln 一行一行读取 当,文件较大时(文件有很多行)。运行速度大约是每分钟8000行
var
FileName, Filetxt: string;
if OpenDialog1.Execute then
begin
FileName := OpenDialog1.FileName;
AssignFile(F,FileName);
reset(F);
end;
while not eof(F) do
begin
readln(F,Filetxt); //这里读取的每行数据暂存在Filetxt中
(分解Filetxt的过程)
end;
现在想用seek函数 读取每行内容,并存于Filetxt中,用于分解数据内容。(听说seek读取速度快)
新手求大牛们指教