Close

Internφ programovacφ jazyk

procedure Close(var f : file);

Parametry

f prom∞nnß typu soubor (File)

Popis

Procedura Close uzavφrß d°φve otev°en² soubor.

Ka₧d² soubor, kter² byl otev°en procedurou Reset nebo Rewrite, by m∞l b²t uzav°en procedurou Close. Pokud nenφ explicitn∞ uzav°en, uzav°e jej WinBase602 p°i ukonΦenφ b∞hu programu (p°edtφm oznßmφ Program neuzav°el vÜechny soubory).

Soubor musφ b²t bezpodmφneΦn∞ uzav°en d°φve, ne₧ je podruhΘ otev°en procedurou Reset nebo Rewrite. Dojde-li p°ed uzav°enφm souboru k nekorektnφmu ukonΦenφ operaΦnφho systΘmu, nebude zaznamenßna zm∞na velikosti souboru vypl²vajφcφ z operacφ zßpisu proveden²ch nad tφmto souborem.

N∞kterΘ funkce pracujφcφ se soubory (nap°. Data_export) neprob∞hnou, dokud jsou tyto soubory otev°eny.

P°φklad

var
  f  : file;
begin
  if Reset(f,"C:\WB602\POKUS.TXT") then begin
    ...
    Close(f);
  end;
end.

Viz