procedure set_array; var test : array [0..10] of integer; begin p : ^integer; i : integer; begin p = @test[0]; //与c不同,应以数组第一个单元的地址为首地址 for i = 0 to 9 do begin ^p = i; inc(p); end; end;
ctk用的是什么语言?在这里@test等于@test[0]程序本身也有问题!procedure set_array; var test : array [0..10] of integer; p : ^integer; i : integer; begin p := @test; for i := 0 to 9 do begin p^ := i; inc(p); end; end;
var
test : array [0..10] of integer;
begin
p : ^integer;
i : integer;
begin
p = @test[0]; //与c不同,应以数组第一个单元的地址为首地址
for i = 0 to 9 do
begin
^p = i;
inc(p);
end;
end;
var
test : array [0..10] of integer;
p : ^integer;
i : integer;
begin
p := @test;
for i := 0 to 9 do
begin
p^ := i;
inc(p);
end;
end;
否则length()这个函数怎么解释。
C语言里是不可能有这个函数的