Append

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.