Вывести двумерный массив в StringGrid

@Андрей Чернядье · Регистрация: 11.03.2015

Студворк — интернет-сервис помощи студентам

Добрый вечер! Вот задание: Дан двумерный массив размерности 10х10. Заполнить его случайными числами на отрезке [-25,25]. Заменить значения всех элементов побочной диагонали значениями, равными 50. Вывести исходный массив и полученный результат на печать.

Я написал код, все работает, только выводит массивы в memo ,а мне нужно это же самое в StringGrid, помогите переделать, не получается никак у меня.
Код:

Delphi

procedure TForm1.Button1Click(Sender: TObject);
const
n =10;
Var
 mm:array[1..n,1..n] of integer;
 i,j:integer;
 p,r,stroka,stroka1:string;
 s:real;
Begin
Memo1.Clear;
Memo2.Clear;
Memo3.Clear;
Randomize;
 
s:=0;
 
 
for i:=1 to n do
begin
stroka1:='';
  stroka:='';
  for j:=1 to n do
   begin
    mm[i,j]:=random(50)-25;
    stroka:=stroka +' '+ IntToStr(mm[ i, j ]);
 
 
     begin
     if i+j=11 then
     begin
     p:='';
     p:=inttostr(mm[i,j]);
     Memo3.Lines.Add(p);
     end;
     end;
 
 
    if i+j=11 then mm[i,j]:=50;
      stroka1:=stroka1 +' '+ IntToStr(mm[ i, j ]);
 
   end;
   Memo1.Lines.Add(stroka); //StringGrid1.Cells[i,1]:=INtToStr(-10 + Random(21));
 
 
 
   Memo2.Lines.Add(stroka1);
 
end;
 
 
 
end;

В два StrindGrid нужно это же самое вывести, данный и полученный как бы массивы.

@northener · 24.05.2015, 01:20

Не по теме:

Сообщение от Андрей Чернядье

Я написал код, все работает, только выводит массивы в memo

Понимаю тебя. Я написал роман "Война и мир", а мне никто не верит. Говорят что его написал какой-то Л.Толстой. :)

@Андрей Чернядье · 24.05.2015, 09:07 **[ТС]**

как в StringGrid сделать?

@Zombi_sib · 24.05.2015, 09:33

Вот держи как вариант

@Андрей Чернядье · 24.05.2015, 09:56 **[ТС]**

спасибо)

@northener
	24.05.2015, 01:20 #2
	Не по теме: Сообщение от Андрей Чернядье Я написал код, все работает, только выводит массивы в memo Понимаю тебя. Я написал роман "Война и мир", а мне никто не верит. Говорят что его написал какой-то Л.Толстой. :) 0

@Андрей Чернядье 0 / 0 / 0 Регистрация: 11.03.2015 Сообщений: 79
	24.05.2015, 09:07 [ТС]	3
	как в StringGrid сделать? 0

@Андрей Чернядье 0 / 0 / 0 Регистрация: 11.03.2015 Сообщений: 79
	24.05.2015, 09:56 [ТС]	5
	спасибо) 0

Опции темы