Получить массив..

[Roberto]

Помогите с двумерным массивом. Нужно получить вот точно такой массив (7x7) чисел и вывести в таблицу таким же образом. Скрин образца вложил, посмотрите пожалуйста

[Карась]

Нужно получить

П о л у ч и т е

[Roberto]

Сообщение от Карась

П о л у ч и т е

procedure TForm1.cmdRunClick(Sender: TObject);
var
a:array[1..100,1..100]of integer;
i,imax,imin,j,jmax,jmin,k,m,n:integ er;
begin
jmin:=1;
jmax:=7;
imin:=2;
imax:=7;
k:=0;
repeat
for j:=jmin to jmax do
begin
inc(k);
a[imin-1,j]:=k;
end;
for i:=imin to imax do
begin
inc(k);
a[i,jmax]:=k;
end;
dec(jmax);
for j:=jmax downto jmin do
begin
inc(k);
a[imax,j]:=k;
end;
dec(imax);
for i:=imax downto imin do
begin
inc(k);
a[i,jmin]:=k;
end;
inc(imin);
inc(jmin);
until k>=14;
for i:=1 to 7 do
for j:=1 to 7 do
strMas.Cells[j-1,i-1]:=IntToStr(a[i,j]);
end;

Что тут не так, подскажите, у меня не выходит так как надо???

[Карась]

Кидайте весь проект в рар архиве....

[Roberto]

Сообщение от Карась

Кидайте весь проект в рар архиве....

...................

[puporev]

Вот у меня есть проект, который формирует спираль любого порядка. Когда-то скачал, она не работала, поправил, сейчас работает.
Там есть 2 раза

sg1.Cells[x-1,y-1]:=inttostr(number);

Если х и у поменять местами, то спираль пойдет в другую сторону.
Смысл там в том, что матрица заполняется сначала числами типа i*10+j, а затем которые не на месте, заменяются.