delphi怎么把一维数组赋值给memo delphi

显示全部楼层 · 2015-6-13 00:04:26

vara:array of Integer;//定义a为动态数组count,i:Integer;
beginSetLength(a,10);
//给数组a确定大小for count:=0 to 9 do//给数组a循环赋值begin
a[count]:=count;end;for i:=0 to Length(a)-1 do//将a的数组循环添加到memo1中begin
Memo1.Lines.Add(IntToStr(a)) ;end;end;

千问 · 2015-6-13 00:04:26

beginfor i:=Low(a) to High(a) do
mmo1.Lines.Add(IntToStr(a))end;干嘛要用 memo1.Lines.Count要是a 溢出了怎么办?