```delphi
procedure Erase(var F);
```
[[Delphi/Procedury|Procedura]] kasuje plik określony w parametrze
F.
F musi być skojarzone z danym plikiem przy pomocy procedury [[Delphi/AssignFile]]. Z uwagi na to, iż plik przed usunięciem należy niejako skojarzyć (`AssignFile`), a na końcu zwolnić ([[Delphi/CloseFile]]) w wielu wypadkach wygodniejsze może okazać się skorzystanie z funkcji [[Delphi/DeleteFile]].
Oto prosty przykład usunięcia pliku korzystając z procedury Erase:
program Foo;
{$APPTYPE CONSOLE}
var
TF : TextFile;
begin
AssignFile(TF, 'C:\foo.txt');
Erase(TF);
CloseFile(TF);
end.
Zobacz też:
Nie trzeba pisać CloseFile. Po co zamykać plik, który nie jest otwarty. Gdy napiszemy to pojawi się: EInOutError: File Not Open.