16 febbraio 2001 R

1. Eliminazione degli ultimi X elementi

Procedure EliminaUltimi(Var F: Fogg; X: LongInt);
Var
   N: LongInt;
Begin
   Reset(F);
   N:=FileSize(F);
   If(N < X) then
      Seek(F, 0)
   Else
      Seek(F, N-X);
   Truncate(F);
   Close(F);
End;

2. Ricerca, sul campo key, della posizione di un elemento

Function RicercaPos(Var F: Fogg; K: LongInt): LongInt;
Var
   Og: Oggetto; Ancora: Boolean;
Begin
   Reset(F);
   Ancora(True);
   While (Not Eof(F)) And (Ancora) do
      Begin
         Read(F, Og);
         Ancora:=(Og.Key = K);
      End;
   If(Ancora) then
      Ricerca:=-1
   Else
      Ricerca:=FilePos(F)-1;
   Close(F);
End;

3. Copia dell’archivio in un file di testo

Procedure CopiaInTesto(Var F: Fogg; Var T: Text);
Begin
   Reset(F);
   Rewrite(T);
   While(Not Eof(F)) do
      Begin
         Read(F, Og);
         Writeln(T, Og.Key: 10, ’ ’, Og.Info:10);
      End;
   Close(F);
   Close(T);
End;

- ApPuNtIdIuNiNfOrMaTiCo