удаление нужной строки и стобца в stringgrid

[Abay19941308]

Я нахожу максимальный элемент. После чего мне необходимо удалить именно ту строку и столбец на пересечении которых нах-ся максимальный элемент.

код:

With StringGrid3 do begin
 mmin:=0;
 for i:=1 to RowCount-1 do begin
  for j:=1 to ColCount-1 do begin
  if Cells[i,j]='0' then begin

     minI:=maxint;
     for q:=1 to ColCount-1 do  begin
     ZA:=StrToIntDEF(Cells[i,q],0);
     if (q<>j) and (ZA<minI) and (i<>q) then minI:=StrToIntDEF(Cells[i,q],0); end;

     minJ:=maxint;

   for q:=1 to RowCount-1 do begin
  ZA:=StrToIntDEF(Cells[i,q],0);
   if (i<>q) and (ZA<minJ) and (q<>j) then minJ:=StrToIntDEF(Cells[q,j],0); end;
   Min2:=MinI+MinJ;
   if min2>mmin then mmin:=min2;
   end;
  end;
 end;
   edit5.text:=IntToStr(mmin);
 end;

Удалить строку и столбец переменной min2(максимальный элемент)
и занести в новый stringgrid

[Stilet]

http://yandex.ua/yandsearch?text=Str...oc=50&lr=20554
Выбирай

[Abay19941308]

нашел код но он удаляет последнюю, как сделать так чтобы удалял нужную мне строку или стобец?
for i := minstrok to stringGrid3.RowCount - 1 do
stringGrid3.Rows[i] := stringGrid3.Rows[i + 1];
stringGrid3.RowCount := stringGrid3.RowCount - 1;

[Abay19941308]

Помогите пожалуйста завтра сдавать!!!

[Stilet]

Я тебя верно понимаю: мою ссылку ты проигнорировал?.
Ибо если бы это было не так то ты бы увидел вот тут: http://www.programmersforum.ru/showthread.php?t=119166 пост Михалыча.

[BDA]

Удаление строки и столбца, где находится выделенная мышкой ячейка:

var
  i: integer;
begin
  with StringGrid1 do
  begin
    for i := row to RowCount - 2 do
      rows[i] := rows[i + 1];
    for i := col to ColCount - 2 do
      cols[i] := cols[i + 1];
    RowCount := RowCount - 1;
    ColCount := ColCount - 1;
  end;
end;