Умножение 2-х матриц

[Lifefine]

Добрый вечер! Пожалуйста подскажите в чем проблема, имеется код:
(1-й вид,в таком порядке форматирования)

 for I := 1 to n do
     for j := 1 to m do
          a[i,j]:=StrToInt(StringGrid1.Cells[i,j]);

и
(2-й вид,в таком порядке форматирования)

for I := 1 to n do
     for j := 1 to m do a[i,j]:=StrToInt(StringGrid1.Cells[i,j]);

Эти коды аналогичны, но компилятор воспринимает по другому(((,что это может быть?
И вообще цикл i-й повторяется 1 раз, а вот j-й все правильно работает, как исправить проблему?

[Lifefine]

Цикл i-й повторился 1 раз, а j-й уже 2-ой раз, в чем проблема? (((

[ArtGrek]

у тебя в какоито ячеике которую пытаеца цикл перевести в число, или пуст или есть какои то лишнии символ

[Lifefine]

Я уже 10 раз проверяю и могу понять в чем проблема))), лишнего символа нет((

[Lifefine]

Вот проект, странно ведет себя программа(

[ArtGrek]

а ты что только массивы 2х2 собрался использовать?
и к тому же нумерация в стринг гриде идет не с 1 а с 0

[Lifefine]

Да,для проверки хотел попробовать 2х2, спасибо за подсказку, я мало знаю, поэтому учусь, сейчас попробую изменить в программе, поставить 0 вместо 1.

Пробовал, бесполезно, когда доходит до этого:

a[i,j]:=strtoint(stringgrid1.cells[i,j]);

вылетает диалог "is not valid integer value ". Нашел в гугле код, но там почему-то начинается не с 0, а с 1.
Вот код:

procedure TForm1.Button1Click(Sender: TObject);
type matrica=array[1..15,1..15] of real;
var a, b, c: matrica;
    i, j, m, n, l, k: byte;
    s: real;
begin
  n:=4;
  m:=4;
  l:=4;
  for i := 1 to n do
    for j := 1 to m do a[i,j]:=strtoint(stringgrid1.cells[i,j]);
  for i := 1 to n do
    for j := 1 to m do b[i,j]:=strtoint(stringgrid2.cells[i,j]);
.............................................................................

[phomm]

вылетает, "not valid integer value" гарантировано если у Вас строчка пустая или там не целое число (вариант - слишком большое число, > 2,15 млрд), как вариант пробуйте сделать проверку типа
if stringgrid1.cells[i,j]='' // пустая строка
then a[i,j]:=0
else a[i,j]:=strtoint(stringgrid1.cells[i,j]);

Нумерация с 1 а не 0 в коде , что Вы нашли гугле, немаловероятно из-а того что у грида есть фиксированный столбец и строка (оные как раз и имеют индекцсы 0, а все остальные, рабочие ячейки, соответственно имеют индексы от 1). Как Вам надо, так и делайте, только учитывайте эти тонкости.

Также советую проверить код на выход за пределы массива ячеек грида, помните, что количество ячеек это некое число Н , и цикл обычно делают от 0-го (начального) индекса до Н-1 (последнего) индекса.