Клуб программистов

    Процедура Truncate обрезает файла в текущей позиции. Все данные после текущей позиции стираются.

     Файл должен быть связан с файловой переменной с помощью функции Assign и открыт с помощью ReWrite или Reset.

     Текстовые файлы не поддерживаются.

var
   myWord, myWord1, myWord2 : Word;
   myFile : File of Word;

begin
   // Try to open the Test.bin binary file for writing to
   AssignFile(myFile, 'Test.cus');
   ReWrite(myFile);

   // Write a couple of Words to the file
   myWord1 := 234;
   myWord2 := 567;
   Write(myFile, myWord1, myWord2);

   // Close the file
   CloseFile(myFile);

   // Display the file contents
   Reset(myFile);
   ShowMessage('Before truncate :');
   while not Eof(myFile) do
   begin
     Read(myFile, myWord);
     ShowMessage(IntToStr(myWord));
   end;

   // Close, reopen, and truncate after the first word
   CloseFile(myFile);
   FileMode := 2;
   Reset(myFile);
   Read(myFile, myWord);
   Truncate(myFile);
   CloseFile(myFile);

   // Display the file contents again
   Reset(myFile);
   ShowMessage('After truncate :');
   while not Eof(myFile) do
   begin
     Read(myFile, myWord);
     ShowMessage(IntToStr(myWord));
   end;

   // Close the file for the last time
   CloseFile(myFile);
end;

Before truncate :
234
567
After truncate :
234