home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 July / Chip_2001-07_cd1.bin / ctenari / Cerny / INSTALLF.EXE / rar / FREETFB / DOC / IOERRFB.DOC < prev    next >
Text File  |  2001-04-03  |  2KB  |  66 lines
  1. ~16|0|05 Jednotka IOErrFB.fbl
  2.  
  3.  |1|05   IOError
  4.     Tato funkce provádí oτet²ení chyb vstupu/v∞stupu
  5.  v aplikaƒním programu. Je typu boolean a pokud dojde 
  6.  na V/V k chyb╪, vypíτe nejprve hláτení o v∞sledku
  7.  I/O operace, ƒísle chyby a jejího popisu. Vrací hodnotu
  8.  TRUE. Pokud k ºádné chyb╪ nedojde, vrací hodnotu FALSE
  9.  bez v∞pisu hláτení o v∞sledku I/O operace.
  10.     Funkce oτet²uje chyby ƒíslo $01 aº $06, $10, $20 aº $22,
  11.  $90, $91, $99, $F0, $F1, $F2 a $FF.
  12.     P²íklad pouºití:
  13.  
  14. |0|09 //TestErr//
  15.  
  16. |0|09  #unit GraphFBP, GrMouse, IOErrFB;
  17.  
  18. |0|09  variable
  19. |0|09     text~t;
  20. |0|09     file of word~f;
  21. |0|09     word~Data;
  22.  
  23. |0|09  DefFrom ChybaCteni, EndTest;
  24. |0|09  Follow
  25. |0|09    InitFB;
  26. |0|09    {otev²i soubor pro ƒtení a nastav poƒátek na 45. pozici v souboru}
  27. |0|09    SetOpenF(f,'DODAV.DTA'>45);
  28. |0|09    if |1|09IOError |0|09from EndTest; |0|12doτlo k chyb╪ p²i otev²ení?
  29. |0|09    :loop>
  30. |0|09      Read(f,Data);  |0|12  ƒti ze souboru do Data
  31. |0|09      if |1|09IOError |0|09from ChybaCteni; |0|12doτlo k chyb╪ p²i ƒtení?
  32. |0|09    :loop< Eof(f);
  33. |0|09    @ChybaCteni< |0|12náv╪τtí pro p²ípad chyby p²i ƒtení ze souboru
  34. |0|09    Close(f);
  35. |0|09    WriteInfoLine('Vτe je v po²ádku.');
  36. |0|09    KeyWait;
  37. |0|09    @EndTest< |0|12náv╪τtí pro p²ípad chyby p²i otev²ení souboru
  38. |0|09    DisposeFB;
  39. |0|09  EndFo
  40.  
  41.    Pokud uvedete za p²íkaz pro práci se soubory znak @ zavinრa dále
  42.  jméno definovaného náv╪τtí, není nutné funkci IOError vàbec pouºít
  43.  (avτak jednotku IOERRFB.FBL ano).
  44.    P²íklad:
  45.  
  46. |0|09  DefFrom ChybaCteni, EndTest;
  47. |0|09  Follow
  48. |0|09    InitFB;
  49. |0|12    otev²i soubor pro ƒtení a nastav poƒátek na 45. pozici v souboru
  50. |1|09    SetOpenF@EndTest(f,'DODAV.DTA'>45);
  51. |0|12    pokud doτlo k chyb╪ p²i otev²ení jdi na náv╪τtí EndTest
  52. |0|09    :loop>
  53. |1|09      Read@ChybaCteni(f,Data);  |0|12  ƒti ze souboru do Data
  54. |0|12      pokud doτlo k chyb╪ p²i ƒtení jdi na náv╪τtí ChybaCteni
  55. |0|09    :loop< Eof(f);
  56. |1|09    @ChybaCteni< |0|12náv╪τtí pro p²ípad chyby p²i ƒtení ze souboru
  57. |0|09    Close(f);
  58. |0|09    WriteInfoLine('Vτe je v po²ádku.');
  59. |0|09    KeyWait;
  60. |1|09    @EndTest< |0|12náv╪τtí pro p²ípad chyby p²i otev²ení souboru
  61. |0|09    DisposeFB;
  62. |0|09  EndFo
  63.  
  64.  
  65.  
  66.