[next] [prev] [prev-tail] [tail] [up]

#### Close

Declaration:
  Procedure Close (Var F : Anyfiletype);
Description:
  Close flushes the buffer of the file F and closes F. After a call to Close, data can no longer be read from or written to F. To reopen a file closed with Close, it isn’t necessary to assign the file again. A call to Reset (558) or Rewrite (559) is sufficient.
Errors:
  Depending on the state of the {$I} switch, a runtime error can be generated if there is an error. In the {$I-} state, use IOResult to check for errors.
See also:
  Assign (455), Reset (558), Rewrite (559), Flush (502)

Listing: refex/ex9.pp

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.

[next] [prev] [prev-tail] [front] [up]