我的原代码如下:
procedure drawPic(Data:array of integer);
var
Points:array of TPoint;
img:TImage;
i,j:integer;
....
begin
i:=High(Data);
Setlength(Points,I+1);
for j:=0 to i do
begin
Points[j].x:=j;
Points[j].y:=Data[j];
end;
PolyBesiz(Points);
Points:=nil;
....
end;
错在哪里呢?