Moduły » System

Erase

  • 2010-10-31 18:27
  • 1 komentarz
  • 299 odsłon
  • Oceń ten tekst jako pierwszy
Erase
Moduł: System

procedure Erase(var F);

Procedura kasuje plik określony w parametrze F. F musi być skojarzone z danym plikiem przy pomocy procedury AssignFile. Z uwagi na to, iż plik przed usunięciem należy niejako skojarzyć (AssignFile), a na końcu zwolnić (CloseFile) w wielu wypadkach wygodniejsze może okazać się skorzystanie z funkcji 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

D.F. 2010-01-09 21:04

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