Prova i file

Accesso sequenziale

Program ProvaFileInteri;
Const
   nome='fileinteri.arc';
Var
   FI: File of Integer;
   x: Integer;
   i: Integer;
Begin
   Assign(FI, nome);
   Rewrite(FI);
   For i:=1 To 10 Do
      Begin
         x:=10*i;
         Write(FI, x);
      End;
   Close(FI);
    
   Reset(FI);
   While Not Eof(FI) Do
      Begin
         Read(FI, x);
         Writeln(x);
      End;
   Close(FI);
    
   ReadLn;
End.

Accesso casuale

Program ProvaFileInteri;
Const
   nome='fileinteri.arc';
Var
   FI: File of Integer;
   x: Integer;
   i: Integer;
Begin
   Assign(FI, nome);
   Rewrite(FI);
   For i:=1 To 10 Do
      Begin
         x:=10*i;
         Write(FI, x);
      End;
   Close(FI);
    
   Reset(FI);
   For i:=FileSize(FI)-1 DownTo 0 Do
      Begin
         Seek(FI, i);
         Read(FI, x);
         Writeln(x);
      End;
   Close(FI);
    
   ReadLn;
End.