
Нонн
6 год назад
Очень срочно надо (делфи 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;
ОТВЕТЫ

Каллиник
Jul 10, 2019
Что это за задание Что то я понять не могу
107