Двухмерный масив Делфи 10

[Джей Харриссон]

Сообщение от Джей Харриссон

Как научили так и делаем...

А вообще при выводе введенные числа должны появляться в таком же порядке в StringGrid2

[p51x]

А своя голова только, чтобы есть?

a[i, j]:= StrToInt(StringGrid1.Cells[j-1, i-1]);

Идексы зачем переставили? Какая ошибка?

[Serge_Bliznykov]

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

Идексы зачем переставили?

индексы переставлены правильно.
в StringGrid/Cells сначала указывается индекс столбца, потом индекс строки.

Какая ошибка?

вот и мне интересно. Вангую, что неверное целое число...

Сообщение от Джей Харриссон

в таком же порядке в StringGrid2

стоп. а откуда взялся StringGrid2 ?
у Вас в коде вроде как StringGrid1 ?

Сообщение от Джей Харриссон

a[i, j]:= StrToInt(StringGrid1.Cells[j-1, i-1]);

[Serge_Bliznykov]

Const
n = 3;
m = 5;
type
TMatrix = array[1..n,1..m] of integer;
var
a:TMatrix;
procedure TForm1.Button1Click(Sender: TObject);
var
   i,j:integer;
begin
  for i:=1 to n do
     for j:=1 to m do
         a[i, j]:= StrToInt(StringGrid1.Cells[j-1, i-1]);
end;

[Desc]

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

стоп. а откуда взялся StringGrid2 ?
у Вас в коде вроде как StringGrid1 ?

Вот то-то и оно.
Осталось выяснить у ТС куда на самом деле должны выводится данные.

[Serge_Bliznykov]

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

Осталось выяснить у ТС куда на самом деле должны выводится данные.

для начала ему нужно попробовать исправленный код из поста #14

[digitalis]

И окромя ввода - ни малейшей попытки искать эти самые кратные 3 и перемножать их. Эта операция, видимо, выполняется телепатически.

[Desc]

Мало ли, вдруг у ТС для этого есть Button2. Которая как раз и выводит результат в StringGrid2.
Подождем что ответит.

[Джей Харриссон]

Под каждое действие кнопка отдельная. И те же данные по идее выводятся в StringGrid2, а результат расчета в Ladel. Вот так как-то. Спасибо кстати всем)