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.