怎么在读文本的时候跳过指定的行数，不通过空读的方法！

[kinglion]

[ghz2000]

Seek(var F; N: Longint)
一个delphi例子：
var
f: file of Byte;
size : Longint;
S: string;
y: Integer;
begin
if OpenDialog1.Execute then
begin
AssignFile(f, OpenDialog1.FileName);
Reset(f);
size := FileSize(f);
S := 'File size in bytes: ' + IntToStr(size);
y := 10;
Canvas.TextOut(5, y, S);
y := y + Canvas.TextHeight(S) + 5;
S := 'Seeking halfway into file...';
Canvas.TextOut(5, y, S);

y := y + Canvas.TextHeight(S) + 5;
Seek(f,size div 2);
S := 'Position is now ' + IntToStr(FilePos(f));
Canvas.TextOut(5, y, S);
CloseFile(f);
end;
end;

[Apollo47]

var
F: TextFile;
S: string;
i: integer;
begin
i:=0;
if OpenDialog1.Execute then
begin
AssignFile(F, OpenDialog1.FileName);
Reset(F);
while not f.eof do
begin
i:=i+1;
if i=5 then continue; // 不读第五行；
Readln(F, S);
Edit1.Text := S;
end;
CloseFile(F);
end;
end;

[kinglion]

我是想在文本文件的开头写入一个数字，读的时候读到这个数直接跳到指定的行，请大家指点！

[Kingron]

建议不要写入行数，写入字节数即可，以后用Seek就可以了。