Truncate.PAS

Язык:
Русский
English


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

uses Crt;

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('Файл до усечения:');
  FileMode := 0; { режим только-чтение }
 Reset(F);
 while not EOF(F) do
 begin
   Read(F, I);
   WriteLn(I);
 end;
  FileMode := 2; { чтение и запись }
 Reset(F);
 for I := 1 to 3 do
   Read(F, J); { Считываем 3 записи }
 Truncate(F); { Усекаем здесь файл }
 WriteLn;
 WriteLn('Файл после усечения:');
  FileMode := 0; { режим только-чтение }
 Reset(F);
 while not EOF(F) do
 begin
   Read(F, I);
   WriteLn(I);
 end;
 Close(F);
 Erase(F);
end.
Тэги:
| G+
Код для вставки: :: :: :: ::
Поделиться: // //