Вырезка из матрицы

[Макспч21]

Сразу извиняюсь если вопрос является дублированным.

На Form имеются компоненты: StreengGreed2, StreengGreed3, edt1, edt2, btn1.
Код программы в btn1:

procedure TForm1.btn1Click(Sender: TObject);
var
x,y,i:byte;
str,col:array[1..5] of integer;
begin
x:=strtoint(edt1.text);
y:=strtoint(edt2.text);
for i:=1 to 5 do begin
  str[i]:=strtoint(stringgrid2.cells[x,i-1]);
  col[i]:=strtoint(stringgrid2.cells[i-1,y]);
end;
end;

end.

Нажимаем на RUN заполняем таблицу StreenGreed2 цифрами (эелементами матрицы), edt1-номер строки edt2-номер столбца.
Проблема такая: как изменить текст программы в btn1, чтобы после нажатия на кнопку btn1, в StreenGreed3 выходила матрица с вырезанной строкой edit1 и вырезанным столбцом edit2

[GetMax]

Можно так:

procedure TForm1.Button2Click(Sender: TObject);
Var
  i,j:Byte;
  n,m:Byte;
begin
  n:=StrToInt(Edit1.Text); //номер строки
  m:=StrToInt(Edit2.Text); //номер столбца
  j:=0;
  For i:=0 to StringGrid2.RowCount-1 do
  Begin
    If i <> m-1 then   //если номер столбца не совпадает с тем, что нужно удалить
    Begin
      StringGrid3.Cols[j]:=StringGrid2.Cols[i]; //то переносим его в новую матрицу
      inc(j)
    End;
  End;
  For i:=n-1 to StringGrid3.RowCount-2 do  //удаляем не нужную строку матрицы
  StringGrid3.Rows[i]:=StringGrid3.Rows[i+1];   // смещая вверх нижние строки
  StringGrid3.RowCount:=StringGrid3.RowCount-1;  //удааляем пустую строку
  StringGrid3.ColCount:=StringGrid3.ColCount-1   //удаляем пустой столбец
end;

[Макспч21]

БОЛЬШОЕ СПАСИБО!

Теперь такой глупый вопрос, после заполнения edit1 и edit2 цифрами(номерами удаляемых строки и столбца) и нажатия на кнопку в StrengGrid3 появляется результативная матрица, однако после смены номеров edit1 и edit2 и каждого очередного нажатия на кнопку матрица уменьшается на 1 столбец и 1 строку от УЖЕ РЕЗУЛЬТАТИВНОЙ а не той что мы ввели в StringGrid2. Вопрос такой, что изменить дабы не приходилось заново перезапускать программу и заполнять ту же матрицу элементами снова и снова, ведь к примеру нужно мне вырезать 3 стр и 3стлб. нажал на кнопку получил. А если нужно ещё 2 и 2 приходится закрывать форму нажимать RUN и снова заполнять матрицу элементами и тд.
(Извиняюсь если что-человек я в этом деле абсолютно новый и никогда раньше этим не занимался)

[GetMax]

Решение такое:

procedure TForm1.Button2Click(Sender: TObject);
Var
  i,j:Byte;
  n,m:Byte;
begin
  n:=StrToInt(Edit1.Text); //номер строки
  m:=StrToInt(Edit2.Text); //номер столбца
  For i:=0 to StringGrid2.RowCount-1 do // копируем исходную матрицу
  StringGrid3.Rows[i]:=StringGrid2.Rows[i];
  For i:=n-1 to StringGrid3.RowCount-1 do  //удаляем не нужную строку матрицы
  StringGrid3.Rows[i]:=StringGrid3.Rows[i+1];
  For j:=m-1 to StringGrid3.ColCount-1 do  //удаляем не нужный столбец
  StringGrid3.Cols[j]:=StringGrid3.Cols[j+1];
End;

[Макспч21]

Спасибо! Появляются ещё вопросы но их задам попозже-если сам не смогу сделать))
Ещё раз спс.

В продолжение данной темы.
Задача: edt1 edt2 воспринимают пока только один элемент-однозначное число, надо чтобы воспринималось несколько чисел и возможно двухзначных-то есть надо мне сразу вырезать 7,13,22 строки и соответсвенно столбцы.

Вот общий код:

procedure TForm1.btn1Click(Sender: TObject);
Var
  i,j:Byte;
  n,m:Byte;
  arr: array[1..10] of byte;
begin
  n:=arr1[x];[/B] //номер строки
  m:=arr2[x]; //номер столбца
  For i:=0 to StringGrid2.RowCount-1 do // копируем исходную матрицу
  StringGrid3.Rows[i]:=StringGrid2.Rows[i];
      begin      // подпрограмма для распознавания элементов массива строки
         str:=edt1.Text;
         i:=1;
          j:=1;
             while i<length(str) do begin
                 if str[i]<>',' then begin
                  if str[i+1]<>',' then begin
                   s:=str[i]+str[i+1];
                   arr[j]:=strtoint(s);
                   inc(i,2);
              end else 
                 begin
                   arr[j]:=strtoint(str[i]);
                   inc(i);
                 end;
                    inc(j);
            end else inc(i);
          end;
        end;
  For i:=n-1 to StringGrid3.RowCount-1 do  //удаляем не нужную строку матрицы
  StringGrid3.Rows[i]:=StringGrid3.Rows[i+1];  
        begin       // подпрограмма для распознавания элементов массива столбца
           str:=edt2.Text;
             i:=1;
             j:=1;
              while i<length(str) do begin
                  if str[i]<>',' then begin
                  if str[i+1]<>',' then begin
                 s:=str[i]+str[i+1];
                  arr[j]:=strtoint(s);
                  inc(i,2);
                end else begin
             arr[j]:=strtoint(str[i]);
             inc(i);
           end;
             inc(j);
           end else inc(i);
       end;
      end;
     For j:=m-1 to StringGrid3.ColCount-1 do  //удаляем не нужный столбец
     [B]StringGrid3.Cols[j]:=StringGrid3.Cols[j+1];
  End;

end.

Выдает ошибку на: n:=arr1[x]; //номер строки


Сам то я понимаю что неправильно проименовал массивы и ключ к решению вот в этой части:

Var
  i,j:Byte;
  n,m:Byte;
  arr: array[1..10] of byte;
begin
  n:=arr1[x]; //номер строки
  m:=arr2[x]; //номер столбца

, но честно запутался совершенно, пожалуйста распутайте меня кого не затруднит это сделать (если можно с разъяснением ибо хотелось бы разобраться)

[TinMan]

А что ты вообще хотел сказать этим?..
Ни arr1, ни arr2, ни x - у тебя не определены. Если ты их даже определишь - все равно их значения у тебя не заданы. Как ты их используешь? И что это там за круглые скобки за arr2[x] ?

[Макспч21]

Сообщение от TinMan

А что ты вообще хотел сказать этим?..
Ни arr1, ни arr2, ни x - у тебя не определены. Если ты их даже определишь - все равно их значения у тебя не заданы. Как ты их используешь? И что это там за круглые скобки за arr2[x] ?

ну я хотел сказать что edt1 и edt2 -массив, который должен восприниматься примерно так: {1,11,26,4} например. И из матрицы вырезались бы соответствующие элементам массива строки и столбцы.

Круглые скобки опечатка.

[TinMan]

Сообщение от Макспч21

ну я хотел сказать что edt1 и edt2 -массив, который должен восприниматься примерно так: {1,11,26,4} например. И из матрицы вырезались бы соответствующие элементам массива строки и столбцы.

То есть в поле ввода edt1 у тебя несколько номеров строк, а в edt2 - столбцов? Как они перечислены - через запятую или пробел? или еще как-то?

Короче, если так, то тебе надо интерпертировать их как строки. Разбить их на части по разделителям (в цикле) и положить в массивы arr1 и arr2. Потом упорядочить эти массивы по убыванию и сделать цикл удаления.

хех )), подумал - упорядочивание по возрастанию позволит организовать цикл удаления более эффективно, но логика будет чуть сложнее..

[Макспч21]

Сообщение от TinMan

То есть в поле ввода edt1 у тебя несколько номеров строк, а в edt2 - столбцов? Как они перечислены - через запятую или пробел? или еще как-то?

Короче, если так, то тебе надо интерпертировать их как строки. Разбить их на части по разделителям (в цикле) и положить в массивы arr1 и arr2. Потом упорядочить эти массивы по убыванию и сделать цикл удаления.

Да верно-в edit 1 - несколько номеров строк, а в edt2 - столбцов.
Перечисляются номера через запятую. Ну так в коде это все сделано-я так понимаю проблема именно в верхней части:
Var
i,j:Byte;
n,m:Byte;
arr: array[1..10] of byte;
begin
n:=arr1[x]; //номер строки
m:=arr2[x]; //номер столбца

или я неправильно понимаю?

[TinMan]

Сообщение от Макспч21

я неправильно понимаю?

Если отбросить знак вопроса, то будет верное утверждение.

Смотри, вот так определялись номера удаляемых строки и столбца, когда их было по одному:

  n:=StrToInt(Edit1.Text); //номер строки
  m:=StrToInt(Edit2.Text); //номер столбца

Теперь нужно сделать массивы n и m

  n,m: array[1..10] of byte;

Теперь нужно в цикле их заполнить, что-то типа такого:

  s:= Edt1.text;
  nRow:= 0;
  while (Length(s)>0) and (s[1]=' ') do Delete(s,1,1); // убираем передние пробелы
  while Pos(' ',s)>0 do begin
    Inc(nRow);
    n[nRow]:= StrToInt(Copy(s,1,Pos(' ',s)-1));
    Delete(s,1,Pos(' ',s);
    while (Length(s)>0) and (s[1]=' ') do Delete(s,1,1); // убираем пробелы
  end;

После этого у тебя в массиве n будут номера строк для удаления. Так же нужно поступить и со столбцами.
Возможно, в Delphi есть встроенные средства для разбивания строки на слова (как Explode в PHP).

А потом нужно будет упорядочить массивы n и m и сделать цикл для удаления.