Вывод случайных не повторяющихся чисел в Stringgrid

[BDA]

procedure TForm1.BitBtn2Click(Sender: TObject);
var
    i,j,p:integer;
    a:array[1..4,1..4] of integer;
    b:array[1..16] of integer;
begin
    randomize;
    for i:=1 to 16 do b[i]:=i;
    for j:=1 to 4 do
        for i:=1 to 4 do
        begin
            p:=random(16-(j-1)*4-i+1)+1;
            a[i,j]:=b[p];
            b[p]:=b[16-(j-1)*4-i+1];
            stringgrid1.cells[i-1,j-1]:=inttostr(a[i,j]);
        end;
end;

Потестируйте

[Heng]

Сообщение от Stilet

Есть идеи: Тебе нужно еще раз внимательно изучить мой код, и сравнить со своим.
Ты некорректно используешь циклы. Я вообще не понимаю зачем тебе циклы для m и n

Твой код работает, Но! мне нужно чтоб числа в интервале от 1 до 15 заполнили Stringgrid в случайном порядке, а у тебя получаются Неповторяющиеся цифры но вылазиют за рамки 15.

[Heng]

Сообщение от BDA

procedure TForm1.BitBtn2Click(Sender: TObject);
var
    i,j,p,tmp:integer;
    a:array[1..4,1..4] of integer;
    b:array[1..16] of integer;
begin
    randomize;
    for i:=1 to 16 do b[i]:=i;
    
    for j:=1 to 4 do
        for i:=1 to 4 do
        begin
            p:=random(16-(j-1)*4-i+1)+1;
            a[i,j]:=b[p];
            b[p]:=b[16-(j-1)*4-i+1];
            stringgrid1.cells[i-1,j-1]:=inttostr(a[i,j]);
        end;
end;

Потестируйте

Идеально! Спасибо !!!!!!