Очень срочно надо (делфи 7)
Разрабатываемая программа предназначена для вычеркивания из матрицы заданной строки и столбца. Всё через стринггрид, эдиты и кнопочки. Для наглядного примера, кидаю кнопочку удаления, объясните, где накосячила :с
procedure TForm1.Button2Click(Sender: TObject);
begin
y := StrToInt(Edit3.Text);
for y:=StringGrid1.Row+1 to StringGrid1.RowCount-1 do //Удаление строки
for x:=0 to StringGrid1.ColCount-1 do
StringGrid1.Cells[x,y-1]:=StringGrid1.Cells[x,y];
StringGrid1.RowCount:=StringGrid1.RowCount-1;
x := StrToInt(Edit4.Text);
for x:=StringGrid1.Col+1 to StringGrid1.ColCount-1 do //Удаление столбца
for y:=0 to StringGrid1.RowCount-1 do
StringGrid1.Cells[y,x-1]:=StringGrid1.Cells[y,x];
StringGrid1.ColCount:=StringGrid1.ColCount-1;
end;