Přidáno 1 739 bajtů,
5. 10. 2012, 14:00 Vytvoří a otevře nový soubor.
;Deklarace
procedure Rewrite(var F: File [; Recsize: Word ] );
;Režim
:Windows, Reálný, Chráněný
;Poznámky
:F je proměnná kteréhokoli z typů soubor, sdružená s vnějším souborem pomocí procedury [[Assign]]. RecSize je nepovinný výraz typu [[Word]], který lze použít pouze v případě, že soubor F je beztypový (untyped). Je-li F beztypový soubor, RecSize určuje velikost záznamu, která se má použít v datových přenosech. Není-li RecSize zadáno, předpokládá se implicitní velikost záznamu 128 bajtů.
:[[Rewrite]] vytvoří nový vnější soubor, jehož jméno bylo přiřazeno k F. Pokud již soubor stejného jména existuje, je zrušen a na jeho místě se vytvoří nový prázdný soubor. Pokud byl soubor F již otevřený, je nejprve zavřen a pak znovu vytvořen. Ukazatel pozice se nastaví na začátek souboru.
:Pokud je proměnné F přiřazeno prázdné jméno (např. voláním [[Assign]](F, ''), po zavolání [[Rewrite]] odkazuje F na standardní výstupní soubor (standardní madlo 1).
:Pokud je proměnná F textovým souborem, stane se F souborem "jen pro zápis". Po zavolání [[Rewrite]] je [[Eof]](F) vždy [[True]].
:V režimu {[[$I]]-} vrací funkce [[IOResult]] hodnotu 0, pokud operace proběhla úspěšně, jinak vrátí nenulový kód chyby.
;Viz také
:[[Append]]
:[[Assign]]
:[[Reset]]
:[[Truncate]]
Vzorový příklad
{Rewrite.PAS}
{Vzorový příklad pro proceduru Rewrite.}
{ Pro Windows: }
{ uses WinCrt; }
var F: Text;
begin
Assign(F, 'NEWFILE.$$$');
Rewrite(F);
Writeln(F, 'Byl vytvořen soubor, obsahující tento text...');
Close(F);
end.
[[Category:System]]
[[Category:Procedúry System]]