"" Is not valid integer value.

[Leshii]

Доброго времени суток. Требуется помощь. Нужно чтобы кто-то по свежему подкинул мысль, в чём же может быть проблема.
Если кратко то, по нажатию кнопки

Button2Click

я получаю матрицу ( не заполненную ) необходимых мне размеров и пронумерованную в фиксированных столбцах.
Ввод элементов осуществляется непосредственно в матрицу.
После ввода по нажатию клавиши

Button3Click

осуществляется реализованный алгоритм ... но по большей части он осуществляется для квадратных матриц, если же ввожу NxM матрицу то постоянно выбивает ошибку "" Is not valid integer value.
У меня отсюда возникает логический вопрос что я не ввёл? Или может я не так матрицу задал ... собственно сижу ломаю голову.

На заметку:
Когда мне выбивает матрицу то она получается именно тех размеров которых надо, заполняется тоже без проблем, а вот когда нажимаю кнопку то сразу выбрасывает ошибку.

procedure TForm1.Button2Click(Sender: TObject);
var
 i, j, rows, columns: integer;
begin
  rows:=StrToInt(Edit1.Text);
  columns:=StrToInt(Edit2.Text);
  StringGrid1.RowCount:=rows+1;
  StringGrid1.ColCount:=columns+1;

  for i := 0 to StringGrid1.ColCount do StringGrid1.Cells[i,0]:=IntTostr(i);
    for i := 0 to StringGrid1.RowCount do StringGrid1.Cells[0,i]:=IntTostr(i);

  if (Edit1.Text<>' ') and (Edit2.Text<>' ') then StringGrid1.Visible:=true else
  StringGrid1.Visible:=False;

end;

...
procedure TForm1.Button3Click(Sender: TObject);
var
....
begin

k:=StrToInt(Edit3.Text);
rows:=StrToInt(Edit1.Text);
columns:=StrToInt(Edit2.Text);
StringGrid1.RowCount:=rows+1;
Stringgrid1.ColCount:=columns+1;

     for i := 1 to StringGrid1.RowCount-1 do
        for j := 1 to StringGrid1.ColCount-1 do
           a[i,j]:=StrToInt(StringGrid1.Cells[i,j]);

str:=1;
  for j:=1 to columns do vector_A[j]:=a[str,j];

 Memo1.Lines.Add(' ');
 for j:=1 to columns do
     Memo1.lines.Add(IntToStr(vector_A[j]));

 max_a:=vector_A[1];index_a:=1;
 for j:=1 to columns do begin
     if Vector_A[j] > max_a then index_a:=j;
 end;

 for i:=1 to rows do vector_B[i]:=a[i,index_a];

Заранее благодарен за помощь.

[Stilet]

А ты не хочешь самостоятельно путем пошаговки понять где на каком операторе получается ошибка и почему?

[Аватар]

  for i := 0 to StringGrid1.ColCount do StringGrid1.Cells[i,0]:=IntTostr(i);
    for i := 0 to StringGrid1.RowCount do StringGrid1.Cells[0,i]:=IntTostr(i);

1. Циклы должны быть до ColCount-1 и RowCount-1
2. 1-ый цикл заполняет все ячейки первой строки
3. 2-ой - все ячейки первого столбца

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

допустим i=2 и j=2. Ячейка не заполнена. StrToInt завершится аварийно

И Stilet прав, пошаговая трассировочка уже давно бы прояснила ситуацию

[Leshii]

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

Я извиняюсь что забыл про это написать.

-------

Пробежался ещё раз трассировкой, получилсась ерунда.
то есть ввожу скажем матрицу 3х2

3 9
9 2
9 6

По результатам трассировки
оно мне просматривает элементы
11 12 13 14
24
21 22 23 24
34
31
( выше указаны индексы )
Теперь задаюсь вопросом что же надо изменить.

[Человек_Борща]

StrToIntDef используй и не парься.

[Serge_Bliznykov]

     for i := 1 to StringGrid1.RowCount-1 do
        for j := 1 to StringGrid1.ColCount-1 do
           a[i,j]:=StrToInt(StringGrid1.Cells[i,j]);

Вы явно забыли о том, что в этом идиотском StringGrid первый индекс - это номер столбца, второй - номер строки. А у Вас наоборот.
попробуйте так:

     for i := 1 to StringGrid1.RowCount-1 do
        for j := 1 to StringGrid1.ColCount-1 do
           a[i,j]:=StrToInt(StringGrid1.Cells[ j, i ]);