Append
Verze z 5. 10. 2012, 21:26, kterou vytvořil Zdeno Sekerák (diskuse | příspěvky)
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
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.