你不是已经实现了吗var
a:array of integer;
i: integer;
begin
SetLength(a,9);
for i:=0 to High(a)
a[i] := i;
end;结果
a[0] ... a[9] == 0 .... 9
a:array of integer;
i: integer;
begin
SetLength(a,9);
for i:=0 to High(a)
a[i] := i;
end;结果
a[0] ... a[9] == 0 .... 9
a: array of integer;
i: integer;
begin
SetLength(a,9);
for i:=Low(a) to High(a)
a[i] := 9;
//FullChar(a, SizeOf(a), #0); //全部赋0
end;