[转]如何动态增长一个数组的大小

wildfish

[原文地址: http://www.think400.dk/adhoc_4.htm#eks0015]
问题：
使用VB 或者C 我能够很容易的增加数组的大小而不丢失原来的数据，在RPG里面是否也可能呢？
回答：
当然可以，但是你得基于指针建立数组。并且增长内存分配大小。具体看看操作码 ALLOC, REALLOC, 和 DEALLOC 。
下面是一个快速的例子：

1. 
   
2. * 数组定义--基于指针
   
3. Darray            S             10    DIM(20000) BASED(PTR)
   
4. Dindex            s              7  0
   
5. * memory allocation data items--不知道具体怎么翻译这个，按照我的理解，是一个指针结构
   
6. * 用于保存数组的信息，比如数组中的序号，内存大小，数组的内容
   
7. Dptr               S               *
   
8. Dnbr_of_elems     S              5   0 INZ(10)
   
9. Dmem_size           S              7   0 INZ
   
10. Dx                         S             10i 0
    
11. * 分配出示内存=
    
12. *(元素的初始数量 * 数组的内容的大小)
    
13. C                   EVAL      mem_size = %size(array) * nbr_of_elems
    
14. C                   ALLOC     mem_size      ptr
    
15. C                   EVAL      x = %elem(array)
    
16. 
    
17. * 循环测试
    
18. C     1             DO        50            index
    
19. 
    
20. * 当索引超过当前数组元素的上限时
    
21. C                   IF        index > nbr_of_elems
    
22. * 通过加10的步长方式
    
23. *并且乘以数组元素的大小得到一个新的内存大小
    
24. C                   EVAL      nbr_of_elems = nbr_of_elems + 10
    
25. C                   EVAL      mem_size = %size(array) * nbr_of_elems
    
26. 
    
27. * 重新分配内存块，并且增长大小
    
28. C                   REALLOC   mem_size      ptr
    
29. C                   ENDIF
    
30. 
    
31. * Move数据测试
    
32. C                   MOVE      index         array(index)
    
33. *
    
34. C                   ENDDO
    
35. 
    
36. * 释放内存
    
37. C                   DEALLOC                 ptr
    
38. C                   EVAL      *inlr = *on
    
39. 
    
40. Thanks to Mark D. Walter
    
41. 
    
42. 
    

复制代码

treeyiki

只是改变了所分配的内存大小，数组个数还是没变~~

happenZheng

tag

绿茶czm

回复 3# treeyiki
同意