truncate.pas

Пример программы для процедуры Truncate.

Код примера
 {Truncate.PAS}
 
 { Пример программы для процедуры Truncate }
 
 Uses WinCrt;
 
 Var F : File Of Integer;
  I, J : Integer;
 
 Begin
  Assign(F, 'TEST.INT');
  ReWrite(F);
  For I:=1 To 6 Do Write(F, I);
  WriteLn('Файл до усечения:');
  Reset(F);
  While Not EOF(F) Do
   Begin
    Read(F, I);
    WriteLn(I);
   End;
  Reset(F);
  For I:=1 To 3 Do Read(F, J); { Считываем 3 записи }
  Truncate(F); { Усекаем здесь файл }
  WriteLn;
  WriteLn('Файл после усечения:');
  Reset(F);
  While Not EOF(F) Do
   Begin
    Read(F, I);
    WriteLn(I);
   End;
  Close(F);
  Erase(F);
 End.

Скачать truncate.pas