• Очень срочно надо (делфи 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;

Ответы 2

  • Разрабатываемая программа предназначена для вычеркивания из матрицы заданной строки и столбца.
    • Автор:

      earllyons
    • 6 лет назад
    • 0
  • Что это за задание? Что то я понять не могу
    • Автор:

      gamble
    • 6 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years