delphi数组数据输出给memo为什么不行？

procedure TForm1.Button1Click(Sender: TObject);

var
geshu : integer;
zushu : integer;
i, j :integer;
result : string;
begin

memo1.Lines.Clear;
geshu := strtoint(edit1.Text);
zushu := strtoint(edit2.Text);
i := 1;
randomize;
while i <= zushu do
begin
for j := 1 to geshu do
result := result + inttostr(random(10));
memo1.Lines.Add(result);
result := '';
i := i + 1;
end;

end;

procedure TForm1.Button2Click(Sender: TObject);

var
a : array of integer;
b : array of string;
i, j, l, temp : integer;
flag : boolean;
begin

setlength(a, memo1.Lines.Count);
for i := 0 to memo1.Lines.Count - 1 do
begin
a[i] := strtoint(memo1.Lines.Strings[i]);
end;

for i := 0 to memo1.Lines.Count - 2 do
begin
flag := false;
for j := memo1.Lines.Count - 1 downto succ(i) do
begin
if a[j] > a[j - 1] then
begin
temp := a[j];
a[j] := a[j - 1];
a[j - 1] := temp;
flag := true;
end;
end;
if not flag then
exit;
for l := 0 to memo1.Lines.Count - 1 do
begin
b[l] := inttostr(a[l]);
memo2.Lines.Add(b[l]);
end;
end;
end;

end.

追问：为什么我输入2，8或者3，5 就会出错呢？

答案：
一、procedure TForm1.Button2Click(Sender: TObject);
var
a : array of string;
b : array of string;
i, j, l: integer;
temp:string;
 

上一个：delphi下拉列表关联显示不出数据
下一个：刚学Delphi，有些不懂！！