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