Процедура Truncate – зменшує розмір файлу, видаляючи всі дані після поточної позиції

Процедура Truncate в Delphi зменшує розмір файлу, видаляючи всі дані після поточної позиції.

Процедура Truncate: Запис у файл, потім його усічення

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

begin
  // Спроба відкрити бінарний файл Test.bin для запису
  AssignFile(myFile, 'Test.cus');
  ReWrite(myFile);

  // Записуємо пару слів в файл Word
  myWord1 := 234;
  myWord2 := 567;
  Write(myFile, myWord1, myWord2);

  // Закриття файлу
  CloseFile(myFile);

  // Показ вмісту файлу
  Reset(myFile);
  ShowMessage('Перед усіченням :');
  while not Eof(myFile) do
  begin
    Read(myFile, myWord);
    ShowMessage(IntToStr(myWord));
  end;

  // Закриття, повторне відкриття та усічення після першого слова
  CloseFile(myFile);
  FileMode := 2;
  Reset(myFile);
  Read(myFile, myWord);
  Truncate(myFile);
  CloseFile(myFile);

  // Знову показуємо вміст файлу
  Reset(myFile);
  ShowMessage('Після усічення :');
  while not Eof(myFile) do
  begin
    Read(myFile, myWord);
    ShowMessage(IntToStr(myWord));
  end;

  // Закриття файлу востаннє
  CloseFile(myFile);
end;