home *** CD-ROM | disk | FTP | other *** search
/ AMIGA PD 1 / AMIGA-PD-1.iso / Programme_zum_Heft / Programmieren / Kurztests / ACE / Prgs / Misc / array_of_structs.b next >
Text File  |  1994-10-16  |  598b  |  34 lines
  1. '..An example of how to have an array of structures.
  2.  
  3. DEFLNG a-z
  4.  
  5. CONST records=3
  6.  
  7. STRUCT myStructDef
  8.   STRING the_name
  9.   SHORTINT age
  10. END STRUCT
  11.  
  12. DECLARE STRUCT myStructDef *myStruct
  13.  
  14. DIM myStructs(records)
  15.  
  16. '..read records
  17. FOR i=1 TO records
  18.   PRINT
  19.   INPUT "Enter name: ",nm$
  20.   INPUT "Enter age: ",age
  21.   myStruct = ALLOC(SIZEOF(myStructDef))
  22.   IF myStruct = 0& THEN BEEP:STOP
  23.   myStruct->the_name = nm$
  24.   myStruct->age = age
  25.   myStructs(i) = myStruct
  26. NEXT
  27.  
  28. '..show records
  29. PRINT
  30. FOR i=1 TO records
  31.   myStruct = myStructs(i)
  32.   PRINT "Name: ";myStruct->the_name;TAB(20);"Age: ";myStruct->age
  33. NEXT
  34.