home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a066 / 1.img / TENCHAR.PRG < prev    next >
Encoding:
Text File  |  1992-03-20  |  1.1 KB  |  45 lines
  1. /*
  2.         tenchar.prg
  3.  
  4.         Demonstrates the Clipper anomaly with ten-character instance
  5.         and class variable names.  See description in manual -
  6.         'The 9-character variable name limitation'.
  7. */
  8.  
  9. procedure main
  10.         local tc := TenChar():new       // class defined at bottom of this file
  11.  
  12.         tc:aTenCharNa := 42
  13.         tc:aTenCharNm := 69     // overwrites the first assignment!
  14.  
  15.         // the second one will print NIL, since all
  16.         // ten characters are significant for reads
  17.         ? tc:aTenCharNm
  18.         ? tc:aTenCharNa
  19.  
  20.         // but we can set the variable using only nine characters
  21.         tc:aTenCharN := 42      // censorship
  22.  
  23.         // again, the second one will print
  24.         // NIL; the first will print 42.
  25.         ? tc:aTenCharNm
  26.         ? tc:aTenCharNa
  27.  
  28.         // we can't access either variable with only nine
  29.         // characters - so this will generate an error.
  30.         ? tc:aTenCharN
  31. return
  32.  
  33.  
  34. #include "class(y).ch"
  35.  
  36.  
  37. create class TenChar
  38. export:
  39.         var    aTenCharNm
  40.         var    aTenCharNa
  41. endclass
  42.  
  43.  
  44. // eof tenchar.prg
  45.