Ændring af fil pointers placering

var
  i : integer;
dummystring : string;
  indstreng : string;
begin
  for i := 1 to 40 do
    readlen(fil, dummystring);
  for i := 1 to Eof do
  begin
    readln(fil, indstring)
    .
    .
  end

Med din metode begynder jeg at læse fra line 1 men bruger først resultatet fra læsning ved line 40. Da filen er stor og da det skal gå hurtigt ønsker jeg at starte læsningen ved fx. line 40.

Jeg har lige opdaget at jeg har fået svaret som kommentar til et tidligere spørgsmål.

Brug funktionen Seek

Fra online hjælpen :


Unit

System

Category

I/O routines

procedure Seek(var F; N: Longint);

Description

Use Seek only on open typed or untyped files.

In the above syntax, F is a typed or untyped file variable, and N is an expression of type Longint.

The current file position of F moves to component number N. The number of the first component of a file is 0.

To expand a file, seek one component beyond the last component; that is, the statement Seek(F, FileSize(F)) moves the current file position to the end of the file.

Note

{$I+} handles run-time errors using exceptions. When using {$I-}, use IOResult to check for I/O errors.

jens b