home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 July / Chip_2001-07_cd1.bin / ctenari / Cerny / INSTALLF.EXE / rar / FREETFB / DOC / DOSFB.DOC < prev    next >
Text File  |  2001-05-06  |  2KB  |  61 lines
  1. ~16|0|05 Pⁿ╓KAZY A FUNKCE
  2. ~16|0|05 JEDNOTKY "DosFB":
  3.  
  4.  |1|09 F.1  FileNotFound('Jméno souboru')
  5.   Velmi uºiteƒná funkce, která dokáºe zabránit p²edƒasnému
  6.   ukonƒení programu v p²ípad╪, ºe soubor kter∞ má b∞t otev²en
  7.   není k dispozici.
  8.   P²íklad:
  9.  |1|09  DefFrom LoadEror;
  10.  |0|09  :>proc>
  11.  |1|09    if FileNotFound(FileName) From LoadEror;
  12.  |0|09    .
  13.  |0|09    .
  14.  |0|09  :<proc<
  15.  |1|09  @LoadEror<
  16.  
  17.  |1|05 F.2 FileExist('Jméno souboru')
  18.   Velmi uºiteƒná funkce, která dokáºe zjistit, zda uveden∞
  19.   na disku jiº existuje. Vhodné pouºití v p²ípad╪ ukládání
  20.   souboru. Pokud funkce vrátí hodnotu TRUE, soubor jiº na disku
  21.   existuje. Tak màºeme zabránit jeho p²epsání.
  22.   P²íklad:
  23.  |1|09  DefFrom LoadEror;
  24.  |0|09  :>proc>
  25.  |1|09    if FileExist(FileName) From LoadEror
  26.  |0|09    else
  27.  |0|09    UlozSoubor(FileName);
  28.  |0|09  :<proc<
  29.  |1|09  @LoadEror<
  30.  
  31.  |1|09 G.1  GetExactTime
  32.   Vyuºívá pàvodní funkce GetTime a vypíτe p²esn∞ ƒas.
  33.   Pouºití:
  34.  |0|09  TextGraphXY(10,100,0,SysF,'Je p²esn╪ '+GetExactTime+
  35.  |0|09              ' hodin',DBlue);
  36.  
  37.  |1|09  CH.1  ChannelOpen(TRUE);
  38.  Funkce zjiτ£uje poƒet otev²en∞ch komunikaƒních kanálà, coº lze
  39.  vyuºít pro zjiτt╪ní zda není souƒasn╪ v programu otev²eno p²íliτ
  40.  mnoho souborà, nebo£ TFB màºe mít souƒasn╪ otev²eno nejvíce 20
  41.  souborà. K tomuto poƒtu je vτak nutno p²iƒíst 4 kanály, které
  42.  pouºívá DOS. Ve chvíli, kdy píτu tyto ²ádky, by funkce hlásila
  43.  6 otev²en∞ch kanálà - 4 pro Dos, 1 pro TFB a 1 pro tento soubor.
  44.  V programu lze pouºít takto:
  45.  |1|09 WriteInfoLine('Otev²eno '+NumToStr(ChannelOpen(TRUE))+' kanálà');
  46.  
  47.  |1|09 S.1  SetExactTime(Hodina,Minuty,Sekundy);
  48.   Nahrazuje pàvodní funkci SetTime. Zadávají se ƒíselné
  49.   hodnoty.
  50.  
  51.  |1|09 S.2 SetExactDate(R,M,D);
  52.   Nahrazuje pàvodní funkci SetDate. Uvede se ƒíselná hodnota:
  53.     rok (ƒty²místné), m╪síc(dvoumístné) a den(dvoumístné).
  54.   P²íklad: SetExactDate(2000,08,15);
  55.  
  56.  |1|09 T.1   ThisDay;
  57.  Funkce vrací ²et╪zec obsahující: den.m╪síc.rok
  58.  P²íklad:
  59.  |0|09 TextGraphXY(10,300,0,SysF,'Dnes je '+ThisDay,DBlue);
  60.  
  61.