Очень срочно надо (делфи 7) Разрабатываемая программа предназначена для вычеркивания из матрицы заданной строки и столбца. Всё через стринггрид, эдиты и кнопочки. Для наглядного примера, кидаю кнопочку удаления, объясните, где ...

Очень срочно надо (делфи 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;
Гость
Ответ(ы) на вопрос:
Гость
Что это за задание? Что то я понять не могу
Не нашли ответ?
Ответить на вопрос
Похожие вопросы