Erase

Adam Boduch
Erase
Moduł: System
```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ż:

1 komentarz

Nie trzeba pisać CloseFile. Po co zamykać plik, który nie jest otwarty. Gdy napiszemy to pojawi się: EInOutError: File Not Open.