如何对指针所指的内容进行赋值?

Question

begin
       for i := 1 to HV_100 do
       begin
             p := p+1;
             p^ := 255 ;   //说操作符不支持,那么该怎么作
             
       end;
    end;如注释部分,该怎么赋值顺便问一下,假如一个指针指向数组,那么它的第一个值是从0开始
还是从1开始

Answer 1

var
  Test: Integer;
  p: ^Integer;
  i: Integer;
begin
  Test := 1;
  P := @Test;
  for i := 0 to 9 do
  begin
    p^ := p^ + 1;
  end;
  ShowMessage(IntToStr(P^));
end;从0开始的。

Answer 2

To zyxg(子夜)：
好像说得不对吧？var
  arr: array [0..3] of Integer;
  p: ^Integer;
begin
  p := @arr[0];
  ShowMessage(IntToStr(P^));

Answer 3

var
  arr: array [0..3] of Integer;
  p1,p2: ^Integer;
begin
  p1 := @arr[0];
  p2 := @arr  p1 = p2 ????????????????