blob: eaffc76c82097241d3353fe163eeb137b0aa9ae8 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
Program Example20;
{ Program to demonstrate the Erase function. }
Var F : Text;
begin
{ Create a file with a line of text in it}
Assign (F,'test.txt');
Rewrite (F);
Writeln (F,'Try and find this when I''m finished !');
close (f);
{ Now remove the file }
Erase (f);
end.
|
