关于move

procedure TForm4.Button1Click(Sender: TObject);
var
  //动态数组
  bytes1,bytes2: TBytes;
  //静态数组
  bytes3,bytes4: array[0..5] of Byte;
  i: Integer;
  abc: string;
begin
  //初始化赋值
  abc := ‘ab好‘;
  bytes1 := WideBytesOf(abc);
  for I := 0 to 5 do
  begin
    bytes3[I] := I;
  end;



  {
    根据我的猜测delphi内部最终是拿到了数组首元素的内存编号
    (静态数组变量本身就是,动态数组的话传递首元素的值(要解密得解开汇编代码))
    结论：最终move函数的前两个参数的内部的汇编代码,可能就是拿到堆中数据首元素的内存编号
  }

  //1.动态数组复制到动态数组(规定：前两个参数传递数组首元素的值)
  SetLength(bytes2, Length(bytes1));
  Move(bytes1[0], bytes2[0], Length(bytes1));


  //2.动态数组复制到静态态数组（两种写法都可以为了与动态数组统一,推荐用[0]的方法）
  Move(bytes1[0], bytes3[0], Length(bytes1));
  //Move(bytes1[0], bytes3, Length(bytes1));


  //3.静态数组复制到静态态数组（两种写法都可以为了与动态数组统一,推荐用[0]的方法）
  Move(bytes3[0], bytes4[0], Length(bytes3));
  //Move(bytes3, bytes4, Length(bytes3));
end;

procedure testByte(b: Byte);
var
  pp: Pointer;
begin
  //如果是普通函数的话,你会发现是值传递,但是move函数的原型 windows下是汇编,所以不会按常规出牌.
  //与Pointer(@b1[0]);不同
  pp := Pointer(b);
end;

procedure TForm4.Button2Click(Sender: TObject);
var
  bs: TBytes;
begin
  bs := BytesOf(‘abc‘);
  testByte(bs[0]);
end;

procedure TForm4.Button3Click(Sender: TObject);
var
  b1: TBytes;
  p1,p2,p3,p4: Pointer;
begin
  b1 := BytesOf(‘abc‘);

  p1 := Pointer(b1);//栈中内存的值即堆中的地址
  p2 := Pointer(@b1[0]);//首元素的地址就是变量本身,同Pointer(b1)一样(我猜测move函数让传入 b1[0]，其实他内部就是拿到堆中数据首元素的地址)
  p3 := Pointer(b1[0]);//首个元素的值转成了pointer类型
  p4 := Pointer(Pbyte(b1)^);//首元素的值转成了pointer类型.$61 = 1 + 16 * 6 = 97(a)
end;