IPB

> 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.
 
 К началу страницы 
Тэги:
 

Код для вставки: :: :: :: ГОСТ ::
Поделиться: //
 



-
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"