Ошибка при работе с несколькими Stringgrid.

[Человек Панда]

Здравствуйте.Работаю с 3 таблицами stringgrid,организую сложение матриц.Не могу понять,почему при вызове процедуры очистки полей возникает ошибка Grid index out of range или Grid index out of range-1
Вот код

procedure TSummatrix.brushClick(Sender: TObject);
begin
proizvektor.brushpole(matr1,strmax,stolbmax);// очищаем введенные ячейки матрицы A.
proizvektor.SetGridFocus(matr1,1,1);//фокус на начало матрицы А
proizvektor.brushpole(matr2,strmax,stolbmax);//очищаем введенные ячейки матрицы В.
proizvektor.brushpole(matr3,strmax,stolbmax);//очищаем введенные ячейки матрицы Решения.
matr2.Visible:=False; //скрываем матрицу В
matr3.Visible:=False; //скрываем матрицу ответа
res.Visible:=False;//cкрываем надписть матрица результата
end;

procedure tproizvektor.brushpole(X:Tstringgrid;razstr:integer;razstolb:integer);
var i, k: Integer;
begin
  with X do
    for i:= 1 to razstr do
      for k:=1 to razstolb do
        Cells[i, k] := '';
end;

За пределы дозволенного таблицей не выходит не выходит,это явно видно.



"Обнаружил" такой код у себя

procedure TForm1.GridClean(Sender: TObject); 
var hGridRect: TGridRect; 
begin 
  hGridRect.Top := -1; 
  hGridRect.Left := -1; 
  hGridRect.Right := -1; 
  hGridRect.Bottom := -1; 
  (Sender as TStringgrid).Selection := hGridRect; 
end;

Не знаю почему,но именно из-за него такие неполадки!

[Serge_Bliznykov]

1) а где это видно, что они не выходят за пределы?

2) Вы явно путаете индексы в методе Cells - там сначала указывается НомерСтолбца, потом НомерСтроки

3) нумерация строк/столбцов идёт от нуля (хотя, возможно, что там в 0-вых у Вас названия )

4) я бы при описании процедуры X передавал через параметр VAR:

procedure tproizvektor.brushpole(var X:Tstringgrid;razstr:integer;razstolb:integer);

5) может проще так поступить?

procedure tproizvektor.brushpole(var X:Tstringgrid);
var i, k: Integer;
begin
    for i:= X.FixedRow to X.RowCount -1 do
      for k:=X.FixedCol to X.ColCount-1 do
        Cells[k, i] := '';
end;