Write: Porovnání verzí
Skočit na navigaci
Skočit na vyhledávání
m (1 revízia: Turbo Pascal - rezervované slová) |
|||
(Není zobrazeno 5 mezilehlých verzí od stejného uživatele.) | |||
Řádek 20: | Řádek 20: | ||
;Návratová hodnota | ;Návratová hodnota | ||
− | :V Režimu {[[$I | + | :V Režimu {[[$I]]-} vrací funkce IOResult hodnotu 0, pokud operace proběhla úspěšně, jinak vrátí nenulový kód chyby. |
Řádek 49: | Řádek 49: | ||
− | [[Category: | + | [[Category:Pascal]] |
− | [[Category: | + | [[Category:System]] |
+ | [[Category:Procedúry System]] | ||
+ | [[Category:Procedury a funkce pro práci s textovými soubory]] |
Aktuální verze z 5. 10. 2012, 21:02
U typového souboru zapíše proměnnou do složky (component) souboru. U textového souboru zapíše jednu nebo více hodnot do souboru.
- Deklarace
- Typové soubory: procedure Write(F, V1 [, V2,...,Vn ] );
- Textové soubory: procedure Write( [ var F:Text; ] P1 [,P2,...,Pn ] );
- Režim
- Windows, Reálný, Chráněný
- Poznámky
- Soubor musí být otevřen pro výstup.
- Textové soubory Parametr F, je-li určen, je proměnná typu textový soubor.
- Každé P představuje jeden výstupní parametr, jehož hodnota má být zapsána do souboru.
- Kromě toho může obsahovat i určení šířky pole a počet desetinných míst.
- Každý výstupní výraz musí být typu Char, Integer, Real, String, packed string nebo Boolean.
- Typové soubory Každé V je proměnná stejného typu, jakého jsou složky proměnné F. Po zápisu každé proměnné se ukazatel aktuální pozice v souboru posune na další složku. Pokud je aktuální pozice na konci souboru (tj. pokud Eof(F) je True), soubor se rozšíří.
- Návratová hodnota
- V Režimu {$I-} vrací funkce IOResult hodnotu 0, pokud operace proběhla úspěšně, jinak vrátí nenulový kód chyby.
Vzorový příklad
{Eof.PAS} {Vzorový příklad pro Eof, Read a Write (textové soubory).} { Pro Windows: } { uses WinCrt, WinDos; } var F: Text; Ch: Char; begin { Vezmi jméno souboru z povelového řádku } Assign(F, ParamStr(1)); Reset(F); while not Eof(F) do begin Read(F, Ch); Write(Ch); { Výpis obsah souboru } end; end.