is not a valid integer value

[Stilet]

правЕльно правЕльно.
Только после then BEGIN напиши, дабы все эти циклы в Begin...End были.

[AFA]

Stilet
при нажатии Button2, выскакивает та же ошибка(((

[Stilet]

выскакивает та же ошибка(((

На каком операторе?

[AFA]

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

На каком операторе?

запускаешь программу вводишь размерность матрицы, задаёшь значения элементов матрицы..
нажимаю Вutton2 (производит вычисления согласно условию) и выскакивает окошко 'Матрица А' is not a vailid integer value.

[Stilet]

AFA

Ты знаешь что такое "оператор", шутник?

Чтобы дать тебе более-менее адекватный ответ нужно чтоб ты привел код, и показал строчку на которой вываливается такая ошибка.
Это можно сделать путем пошаговой отладки.

[AFA]

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

Ты знаешь что такое "оператор", шутник?

Чтобы дать тебе более-менее адекватный ответ нужно чтоб ты привел код, и показал строчку на которой вываливается такая ошибка.
Это можно сделать путем пошаговой отладки.

в этой строчке A[I, J] := StrToInt(StringGrid1.Cells[J, I]);

[DomiNick]

Вместо Edit'a надо бы использовать SpinEdit (со вкладки Samples) - это практически такой же Edit, только заточен для целых чисел (а размерность матрицы и не может быть дробной)...
Дальше если эта матрица NxN (квадратная), то зачем два окошка и две переменных? Это ж по сути одна и та же переменная N...

Я бы примерно так делал:

Var Form1: TForm1; N: Integer=5;

Implementation

{$R *.dfm}

Procedure ResizeGrid;
Var i: Integer;
Begin
Form1.StringGrid1.ColCount:=N+1;
Form1.StringGrid1.RowCount:=N+1;
For i:=1 To N Do
      Begin
      Form1.StringGrid1.Cells[0, i]:='i = '+IntToStr(i);
      Form1.StringGrid1.Cells[i, 0]:='j = '+IntToStr(i);
      End;
End;

Procedure TForm1.FormCreate(Sender: TObject);
Begin
SpinEdit1.Value:=N;
StringGrid1.Options:=[goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goEditing, goAlwaysShowEditor];
SpinEdit1.MinValue:=1;
SpinEdit1.MaxValue:=20;
StringGrid1.Cells[0, 0]:='Матрица A';
ResizeGrid;
End;

Procedure TForm1.SpinEdit1Change(Sender: TObject);
Begin
N:=SpinEdit1.Value;
ResizeGrid;
End;

Procedure TForm1.Button1Click(Sender: TObject);
Var i, j: Integer;
Begin
For i:=1 To N Do
      For j:=1 To N Do
            Begin
            StringGrid1.Cells[i, j]:='0';
            End;
End;

Вынес изменение размера матрицы в отдельную процедуру;
Матрица заполняется нулями при нажатии на кнопку...

[AFA]

DomiNick
А как сделать автозаполнение массива?..

[Utkin]

Перенеси содержимое TForm1.Button1Click в конец TForm1.FormCreate. Тогда при запуске программы, массив будет заполнен нулями.

[AFA]

Utkin
Не нулями, а произвольными числами!