mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-10-31 05:31:29 +01:00
16 lines
287 B
ObjectPascal
16 lines
287 B
ObjectPascal
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.
|