Append

Z Delphi & Pascal (česká wiki)
Verze z 5. 10. 2012, 17:49, kterou vytvořil Zdeno Sekerák (diskuse | příspěvky) (1 revízia: Unit System)
Skočit na navigaci Skočit na vyhledávání

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.