怎样设计一个指向数组的指针，谁能帮我设计一个吗，数组类型为byte,或char,或integer都可

Question

怎样设计一个指向数组的指针，谁能帮我设计一个吗，数组类型为byte,或char,或integer都可
，谢谢，
测试通过马上给分

Answer 1

{难道是要这样？}type
  TArr = array[1..5] of char;
  PArr = ^TArr;
var
  Arr: TArr = ('a','b','c','d','e');procedure TForm1.Button1Click(Sender: TObject);
var
  P: PArr;
begin
  P := @Arr;
  showmessage(TArr(P^)[1]);
end;

Answer 2

Pointer在使用的时候转化合适的类型再使用。

Answer 3

type
aa=array[0..3] of Integer;
var
p:^aa;

Answer 4

tVar = Array [1..10] of integer;var
  i,j: integer;
  iVar:Array [1..10] of integer;
  PVar:^TVar;
begin
  for i := 1 to 10 do
     iVar[i] := i;
  PVar := @iVar;
  for i := 1 to 10 do
    begin
    j := PVar^[i];
    showmessage(IntToStr(j));
    end;
end;

Answer 5

{ 下面是指向数组元素的指针 }var
  Arr: array[1..5] of char = ('a','b','c','d','e');procedure TForm1.Button1Click(Sender: TObject);
var
  C: ^Char;
  I: integer;
begin
  C := @Arr[Low(Arr)];
  for I := Low(Arr) to High(Arr) do begin
    showmessage(C^);
    Inc(C);
  end;
  C := nil;
end;

Answer 6

这里PVar得到的是数组指针的指针我喜欢用ls的方法,C := @Arr[Low(Arr)];
不过其实直接c:=Arr就可以了