16,748
社区成员
发帖
与我相关
我的任务
分享
procedure test(abc:Cardinal);
var
i:Integer;
begin
for i:=0 to 3 do
begin
PInteger(abc)^:=i+10;
inc(abc,SizeOf(Integer ));
end;
end;
procedure TForm1.btn1Click(Sender: TObject);
var
a:array[0..3] of Integer;
i:integer;
begin
for i:=0 to 3 do
begin
a[i]:=i;
end;
test(Cardinal(@a[0]));
for i:=0 to 3 do
begin
ShowMessage(IntToStr(a[i]));
end;
end;
procedure test(abc:PInteger);
var
i:Integer;
begin
for i:=0 to 3 do
begin
PInteger(abc)^:=i+10;
inc(abc,1);
end;
end;
procedure TForm1.btn1Click(Sender: TObject);
var
a:array[0..3] of Integer;
i:integer;
begin
for i:=0 to 3 do
begin
a[i]:=i;
end;
test(@a[0]);
for i:=0 to 3 do
begin
ShowMessage(IntToStr(a[i]));
end;
end;