home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 April / Chip_1997-04_cd.bin / tema / 602propc / disk12 / data.12 / WINTEXT / MAKRA / SOURCES / WTSTDFN.TXT < prev    next >
Text File  |  1995-02-13  |  2KB  |  64 lines
  1. program  WtStdFn;
  2. // P°φklad volßnφ standardnφch funkcφ,
  3. // kterΘ mohou mφt p°i volßnφ n∞kterΘ skuteΦnΘ parametry
  4. // s implicitnφ (default) hodnotou, tedy vypustitelnΘ.
  5. // Stejn∞ jako v C++ platφ, ₧e vypustφm-li n∞kter² parametr,
  6. // musφm vypustit i vÜechny nßsledujφcφ;
  7. // jejich hodnota p°i volßnφ bude pak takΘ implicitnφ.
  8. // (bez zavedenφ tohoto pravidla by p°ekladaΦ obecn∞ nemohl
  9. // rozpoznat, kter² skuteΦn² parametr p°φsluÜφ ke kterΘmu
  10. // formßlnφmu parametru).
  11.  
  12. begin
  13.  
  14.  { ₧ßdn² parametr nenφ default : }
  15.   CharLeft(1, False);
  16.   CharRight(1, True);
  17.   LineDown(2, False);
  18.   LineUp(-1, True);
  19.  
  20.  { poslednφ parametr je default (false) : }
  21.   CharLeft(1);
  22.   CharRight(1);
  23.   LineDown(2);
  24.   LineUp(-1);
  25.  
  26.  { oba parametry default (1, false) : }
  27.   CharLeft;
  28.   CharRight;
  29.   LineDown;
  30.   LineUp;
  31.  
  32. (* CharLeft(false); *)
  33.  { - compile error :
  34.     nelze vypustit prvnφ parametr a volat se druh²m;
  35.     false je interpretovßno jako prvnφ skuteΦn² parametr,
  36.     nekompatibilnφ s prvnφm formßlnφm parametrem v deklaraci
  37.     funkce, jen₧ je typu integer }
  38.  
  39.   Info_box("beep", "default parameter 1 - standard beep");
  40.   beep;     { standard beep           }
  41.  
  42.   Info_box("beep(1)", "standard beep");
  43.   beep(1);  { standard beep           }
  44.  
  45.   Info_box("beep(2)", "beep MB_OK");
  46.   beep(2);  { beep MB_OK              }
  47.  
  48.   Info_box("beep(3)", "beep MB_ICONHAND");
  49.   beep(3);  { beep MB_ICONHAND        }
  50.  
  51.   Info_box("beep(4)", "beep MB_ICONQUESTION");
  52.   beep(4);  { beep MB_ICONQUESTION    }
  53.  
  54.   Info_box("beep(5)", "beep MB_ICONEXCLAMATION");
  55.   beep(5);  { beep MB_ICONEXCLAMATION }
  56.  
  57.   Info_box("beep(6)", "beep MB_ICONASTERISK");
  58.   beep(6);  { beep MB_ICONASTERISK    }
  59.  
  60.   Info_box("beep(7)", "standard beep");
  61.   beep(7);  { standard beep           }
  62.  
  63. end.
  64.