1 578
editací
Změny
Vytvorená stránka „Otevře existující soubor pro připisování. ;Deklarace procedure Append(var f: Text); kde: f je proměnná typu textový soubor. ;Režim :Windows, Reálný, Chr...“
Otevře existující soubor pro připisování.
;Deklarace
procedure Append(var f: Text);
kde: f je proměnná typu textový soubor.
;Režim
:Windows, Reálný, Chráněný
;Poznámky
:F je proměnná typu textový soubor, která musela být předtím sdružena s vnějším souborem použitím [[Assign]].
:[[Append]] otevře existující vnější soubor, jehož jméno bylo přiřazeno k F. Vnější soubor daného názvu musí existovat, jinak vznikne chyba. Pokud je soubor F již otevřen, zavře se a poté znovuotevře. Aktuální pozice v souboru se nastaví na konec souboru.
:Pokud se v posledním 128-bajtovém bloku souboru vyskytuje [[Ctrl+Z]] (ASCII 26), nastaví se aktuální pozice tak, aby se přepsal první [[Ctrl+Z]] v tomto bloku. Tímto způsobem lze připisovat text do souboru, ukončeného [[Ctrl+Z]].
:Pokud bylo proměnné F přiřazeno prázdné jméno, jako třeba [[Assign]] (F, ''), po zavolání [[Append]] bude F odkazovat na standardní výstupní soubor (standardní madlo číslo 1).
:Po zavolání [[Append]] se F stává souborem pouze pro zápis (write-only) a ukazatel souboru je na [[EOF]] (konec souboru).
:V režimu {[[$I]]-} vrátí funkce [[IOResult]] hodnotu 0, pokud operace proběhla úspěšně, jinak vrátí nenulový kód chyby.
;Viz také
:[[Assign]]
:[[Close]]
:[[Reset]]
:[[Rewrite]]
Vzorový příklad
{Append.PAS}
{Vzorový příklad pro proceduru Append .}
{ Pro Windows: }
{ uses WinCrt; }
var F: Text;
begin
Assign(F, 'TEST.TXT');
Rewrite(F); { Vytvoř nový soubor }
Writeln(F, 'original text');
Close(F); { Zavři soubor, ulož změny }
Append(F); { Přidej na konec textu }
Writeln(F, 'appended text');
Close(F); { Zavři soubor, ulož změny }
end.
[[Category:System]]
[[Category:Procedúry System]]
;Deklarace
procedure Append(var f: Text);
kde: f je proměnná typu textový soubor.
;Režim
:Windows, Reálný, Chráněný
;Poznámky
:F je proměnná typu textový soubor, která musela být předtím sdružena s vnějším souborem použitím [[Assign]].
:[[Append]] otevře existující vnější soubor, jehož jméno bylo přiřazeno k F. Vnější soubor daného názvu musí existovat, jinak vznikne chyba. Pokud je soubor F již otevřen, zavře se a poté znovuotevře. Aktuální pozice v souboru se nastaví na konec souboru.
:Pokud se v posledním 128-bajtovém bloku souboru vyskytuje [[Ctrl+Z]] (ASCII 26), nastaví se aktuální pozice tak, aby se přepsal první [[Ctrl+Z]] v tomto bloku. Tímto způsobem lze připisovat text do souboru, ukončeného [[Ctrl+Z]].
:Pokud bylo proměnné F přiřazeno prázdné jméno, jako třeba [[Assign]] (F, ''), po zavolání [[Append]] bude F odkazovat na standardní výstupní soubor (standardní madlo číslo 1).
:Po zavolání [[Append]] se F stává souborem pouze pro zápis (write-only) a ukazatel souboru je na [[EOF]] (konec souboru).
:V režimu {[[$I]]-} vrátí funkce [[IOResult]] hodnotu 0, pokud operace proběhla úspěšně, jinak vrátí nenulový kód chyby.
;Viz také
:[[Assign]]
:[[Close]]
:[[Reset]]
:[[Rewrite]]
Vzorový příklad
{Append.PAS}
{Vzorový příklad pro proceduru Append .}
{ Pro Windows: }
{ uses WinCrt; }
var F: Text;
begin
Assign(F, 'TEST.TXT');
Rewrite(F); { Vytvoř nový soubor }
Writeln(F, 'original text');
Close(F); { Zavři soubor, ulož změny }
Append(F); { Přidej na konec textu }
Writeln(F, 'appended text');
Close(F); { Zavři soubor, ulož změny }
end.
[[Category:System]]
[[Category:Procedúry System]]