[ДевочкаBlond]

Сообщение от Black Raider

Код:

memo1.Clear;
  for i:=1 to 10 do
  begin
    st:='';
    for j:=1 to 10 do
    begin
      st:=st+inttostr(arr[i,j])+'  |  ';
    end;
    memo1.Lines.Add(st);
  end;

этот блок можете убрать и вставить заполнение стринггрида.

Сейчас попробую))