На форме есть StringGrid. По нажатию кнопки, добавляется строка, в которой заново генерируется массив. Но нужно сделать, чтоб массив генерировался один раз, а потом по нажатию кнопки в каждой добавленной строке выводился этот же массив на каждой итерации сортировки. Буду очень признателен, если подскажете, как реализовать.
procedure TForm1.BitBtn1Click(Sender: TObject);
var i : integer;
begin
randomize;
for i:=0 to 9 do
begin
a[i]:=random(50);
strgrid.Cells[i,SG.RowCount-1]:= IntToStr(a[i]);
end;
strgrid.RowCount:= SG.RowCount +1;
strgrid.Height:= SG.Height +30;
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
procedure Sorting(var a:arrint);
var left, right, tmp, x: integer;
begin
left:=L;
right:=R;
L:=low(a);
R:=high(a);
x:=a[(L+R) div 2];
repeat
while a[L] < x do
inc(L);
while a[R] > x do
dec(R);
if L <= R then
begin
tmp:=a[L];
a[L]:=a[R];
a[R]:=tmp;
inc(L);
dec(R);
end;
until L > R;
if left < R then
Sorting(a);
if L < right then
Sorting(a);
end;
begin
Sorting(a);
end;
end.
TForm1
с абсолютно одинаковыми названиямиBitBtn1Click
.