Процедура Erase– стирає файл

Процедура Erase в Delphi стирає файл.

Процедура Erase: Створення простого файлу, а потім спроба видалити його двічі

var
  myFile : TextFile;

begin
  // Дозволяє нам відкрити текстовий файл
  AssignFile(myFile, 'Test.txt');
  ReWrite(myFile);

  // І записати одну лінію до нього
  WriteLn(myFile, 'Hello World');

  // Потім закриваємо його
  CloseFile(myFile);

  // І нарешті стираємо його
  Erase(myFile);

  // Якщо ми пробуємо стерти його знов, ми піднімемо виняток
  try
    Erase(myFile);
  except
    on E : Exception do
      ShowMessage('Не можна видалити : '+E.Message);
  end;
end;