blob: 9753d6d850686af15492881e3e2b9b988252fc06 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
Program Example9;
{ Program to demonstrate the Close function. }
Var F : text;
begin
Assign (f,'Test.txt');
ReWrite (F);
Writeln (F,'Some text written to Test.txt');
close (f); { Flushes contents of buffer to disk,
closes the file. Omitting this may
cause data NOT to be written to disk.}
end.
|
