动态数组和指针转换（DELPHI）

转载于 2009-09-16 10:52:00 发布

· 256 阅读

0 ·

版权

原文链接：http://www.cnblogs.com/chengxin1982/archive/2009/09/16/1567526.html

Code
procedure TForm1.Button1Click(Sender: TObject);
var
  A: array of Integer;
  P: PLongint;
  I: Integer;
begin
  SetLength(A, 3);
  GetMem(P, SizeOf(PLongint)* 3);
  P^ := 3;
  Inc(p);
  P^ := 33;
  Inc(p);
  P^ := 333;

  Dec(p);
  Dec(p);
//  CopyMemory(A, p, SizeOf(PLongint) * 3); 俩个方法都可以
  Move(P^, a[0], SizeOf(PLongint) * 3);
  for I := Low(A) to High(A) do
    Memo1.Lines.Add(IntToStr(A[i]));
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  A: array of Integer;
  P: PLongint;
begin
  SetLength(A, 3);
  A[0] := 1;
  A[1] := 2;
  A[2] := 3;

  P := PLongint(A);
  Dec(P);
  ShowMessage(IntToStr(p^));  // 长度
  Dec(P);
  ShowMessage(IntToStr(p^));  // 计算器
end;

转载于:https://www.cnblogs.com/chengxin1982/archive/2009/09/16/1567526.html