Write: Porovnání verzí

Z Delphi & Pascal (česká wiki)
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-]]} vrací funkce IOResult hodnotu 0, pokud operace proběhla úspěšně, jinak vrátí nenulový kód chyby.
+
: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:CRT]]
+
[[Category:Pascal]]
[[Category:procedura]]
+
[[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.


Viz také
Read
Readln
Writeln


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.