怎么重新定义数组不丢失原来的数据?

Question

比如我定义了一个数组a[99]:integer;有时候我发现不够用的就SetLength(a,199),这时候前面100个数组的数据全丢了?
vb是用redim preserve a(199)来解决的,delphi是怎么解决的那?(我手头的书上没讲)

Answer 1

其实，即使是VB，也是重新分配了空间，然后把原先的内容复制过去。
因此，没有好方法，都是复制。唯一可以说道好的地方，就是Delphi可以通过直接调用CopyMemory函数，这样可以获得比较高的效率。

Answer 2

var
  p : pchar;
begin
  p := allocmem (5);
  p[0] := 'a';
  p[1] := 'b';
  p[2] := 'c';
  reallocmem (p,10);
  p[3] := 'd';
  showmessage (p);