Помогите найти ошибку

[REztor]

 function matr.delete(k:integer):matr;
  var i,j:integer;
  begin for j:=0 to m-1 do
     for i:=k to n-2 do
     a[i][j]:=a[i+1][j];
     n:=n-1;
    result:=self
    end;

procedure TForm1.agridDblClick(Sender: TObject);
begin showmessage('Сейчас должна пропасть строка с номером '+
inttostr(agrid.Row+1));
 my.delete(agrid.row).show(agrid);
 format(agrid);
end;

и

function matr.delcol(k:integer):matr;
  var i,j:integer;
  begin for i:=0 to n-1 do
     for j:=k to m-2 do
     a[j][i+1]:=a[j+1][i];
     m:=m-1;
    result:=self
    end;

procedure TForm1.agridMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if (button=mbLeft)and(ssShift in Shift)
  then showmessage('Сейчас должен пропасть столбец с номером'+inttostr(agrid.Col+1));
my.delcol(agrid.col).show(agrid);
format(agrid);

Удаляется вместе и строка и столбец, мне нужно по отдельности

[capta1n]

а где сам вызов функции matr.delcol и matr.delete? вижу вызывается my.delcol и my.delete, но функции, которые описаны, не вызываются

[REztor]

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

а где сам вызов функции matr.delcol и matr.delete? вижу вызывается my.delcol и my.delete, но функции, которые описаны, не вызываются

Можешь написать? Что-то не очень понимаю о чем ты

[Stilet]

Что-то не очень понимаю о чем ты

Он говорит о том что нигде в товем коде не показано как ты вызываеш
matr.delcol и matr.delete.
Есть my.delete(agrid.row).show(agrid) Но что это одному богу извесно.

P.S. Если твоя матрица это StringGrid то удаление можно сделать еще проще. В нем есть специальный метод.

[REztor]

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

Он говорит о том что нигде в товем коде не показано как ты вызываеш
matr.delcol и matr.delete.
Есть my.delete(agrid.row).show(agrid) Но что это одному богу извесно.

P.S. Если твоя матрица это StringGrid то удаление можно сделать еще проще. В нем есть специальный метод.

matr.delete(agrid.row);
matr.delcol(agrid.col);

Так это будет выглядеть?

[REztor]

function matr.delcol(k:integer):matr;
  var i,j:integer;
  begin for i:=0 to n-1 do
     for j:=k to m-2 do
     a[j][i+1]:=a[j+1][i];
     m:=m-1;
    result:=self
    end;

Я думаю в этой функции что-то неправильно, проверьте плиз