IOResult: Porovnání verzí

Z Delphi & Pascal (česká wiki)
Skočit na navigaci Skočit na vyhledávání
(Vytvorená stránka „Vrací stav poslední prováděné operace vstupu nebo výstupu. ;Deklarace function IOResult: Integer; ;Režim :Windows, Reálný, Chráněný ;Návratová hodnota ...“)
 
 
(Nejsou zobrazeny 2 mezilehlé verze od stejného uživatele.)
Řádek 20: Řádek 20:
 
  {IOResult.PAS}
 
  {IOResult.PAS}
 
  {Vzorový příklad pro funkci IOResult.}
 
  {Vzorový příklad pro funkci IOResult.}
 +
 
  { Pro Windows: }
 
  { Pro Windows: }
 
  { uses WinCrt; }
 
  { uses WinCrt; }
 +
 
  var F: file of Byte;
 
  var F: file of Byte;
 
  begin
 
  begin
Řádek 38: Řádek 40:
 
[[Category:System]]
 
[[Category:System]]
 
[[Category:Funkce System]]
 
[[Category:Funkce System]]
 +
[[Category:Vstupně/výstupní procedury a funkce]]

Aktuální verze z 17. 12. 2013, 23:44

Vrací stav poslední prováděné operace vstupu nebo výstupu.

Deklarace
function IOResult: Integer;
Režim
Windows, Reálný, Chráněný
Návratová hodnota
0, pokud byla operace bez chyby.
Poznámky
Pokud chcete zachytávat chyby vstupních a výstupních operací pomocí funkce IOResult, musíte mít příslušnou část programu kompilovanou s vypnutým kontrolováním vstupu/výstupu ({$I-}). Pokud se v takto zkompilovaném kódu objeví chyba při vstupu nebo výstupu, všechny následující operace vstupu a výstupu jsou ignorovány, dokud se nazavolá procedura IOResult.
Volání IOResult zároveň vynuluje interní chybový příznak.


Vzorový příklad

{IOResult.PAS}
{Vzorový příklad pro funkci IOResult.}

{ Pro Windows: }
{ uses WinCrt; }

var F: file of Byte;
begin
  { Zjištění jména souboru z příkazové řádky }
  Assign(F, ParamStr(1));
  {$I-}
  Reset(F);
  {$I+}
  if IOResult = 0 then
    Writeln('Velikost souboru v bajtech: ', FileSize(F))
  else
    Writeln('Soubor nenalezen');
end.