Otevřít hlavní menu

Rewrite

Verze z 5. 10. 2012, 20:51, kterou vytvořil Zdeno Sekerák (diskuse | příspěvky)
(rozdíl) ← Starší verze | zobrazit aktuální verzi (rozdíl) | Novější verze → (rozdíl)

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.