Změny

Skočit na navigaci Skočit na vyhledávání

Rewrite

Přidáno 1 739 bajtů, 5. 10. 2012, 15:00
Vytvorená stránka „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á ...“
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]]

Navigační menu