CD Action 48/cdactioncoverdisc482000.iso/Bonus/bon.exe/pascal/prog054.pas

Pascal/Delphi Source File | 2000-03-24 | 307b | 21 lines

{program054 - Usuni⌐cie pliku}

program program054;
 uses crt;
  var sciezka:string;
      plik:text;

procedure usunieciepliku;
 begin
  sciezka:='c:\roboczy.txt';
  assign(plik,sciezka);
  reset(plik);
  close(plik);
  erase(plik);
 end;

begin
 clrscr;
 usunieciepliku;
 readkey;
end.