home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 8 / CDASC08.ISO / VRAC / OBJ20D.ZIP / TESTSTCK.PRG < prev    next >
Text File  |  1993-05-15  |  602b  |  27 lines
  1. // Probando la Clase TStack
  2.  
  3. //----------------------------------------------------------------------------//
  4.  
  5. function Main()
  6.  
  7.    local stk := TStack():New()       // Llamamos al método Constructor
  8.  
  9.    stk:Push( 12 )                    // Guardamos valores en el Stack
  10.    stk:Push( "Hola" )
  11.    stk:Push( Date() )
  12.  
  13.    ? stk:Len()
  14.  
  15.    ? stk:Pop()                       // Recuperamos valores del Stack
  16.    ? stk:Pop()
  17.    ? stk:Pop()
  18.  
  19.    ? stk:Len()
  20.  
  21.    stk:Push( "Adios" )
  22.    ? stk:Pop()
  23.  
  24. return
  25.  
  26. //----------------------------------------------------------------------------//
  27.