move(a,p^10000)

Question

begin
       v:=varArrayceate([1,10000],varBtye);
         p:=varArrayLock(v);
           try
             move(a,p^,10000); //这里这个A,p^上面并没有申请指针的 A有是那里出来的。
                finally
                varArrayunlock(v);
              end;
             end; 

Answer 1

那在最上面还有这么一段的，
 begin
 V:=varArraycreate([1,10000],varByte);
  For i:=1 to 10000 do
  v[i] :=A[i];
 end;