И чего не выходит?
Просто вывести, что бы посмотреть:
Код:
1 2 3 4 5 6 7 8 9 10 11 | var
Labirinth : Array [0..9,0..9] Of Integer;
...
var
I ,J : Integer;
begin
For I := 0 To 9 Do
For J := 0 To 9 Do
StringGrid1.Cells[I,J] := Labirinth[I,J];
end;
|
Но это просто посмотреть. С выводим что бы было красиво - надо выводить (рисовать) либо на TImage, либо на TPaintBox...