Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
MehantroniK
6 / 6 / 0
Регистрация: 03.04.2011
Сообщений: 55
1

Удаление столбцов из матрицы

26.06.2011, 16:50. Просмотров 432. Ответов 0
Метки нет (Все метки)

Доброго времени суток true'шные прогеры) Нужна помощь:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
procedure TForm1.Button2Click(Sender: TObject);
var i,j,s:integer;
        r:integer;
begin
r:=0;
 for i:=0 to StringGrid1.RowCount-1 do
 begin
  for j:=0 to StringGrid1.ColCount-1 do
   begin
    s:=StrToInt(StringGrid1.Cells[i,j]);
     if s<>0 then
      r:=r+1;
   end;
    if r mod 2 = 0 then
     StringGrid1.Rows[j].Clear;
   end;
end;
вот, эта программа должна удалить из матрицы(StringGrid)столбцы с четным количеством ненулевых элементов. Это уже третий вариант кода и все не работает. Может я где дырку не вижу из-за которой все это дело не робит. Помогите, буду признателен.

Добавлено через 15 минут
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
procedure TForm1.Button2Click(Sender: TObject);
var i,j,s:integer;
        r:integer;
begin
r:=0;
 for i:=0 to StringGrid1.RowCount-1 do
 begin
 for j:=0 to StringGrid1.ColCount-1 do
  begin
   StringGrid2.Cells[i,j]:=StringGrid1.Cells[i,j];
   s:=StrToInt(StringGrid2.Cells[i,j]);
    if s<>0 then
     r:=r+1;
    end;
   if (r mod 2)=0 then
    StringGrid2.Cols[i].Clear;
end;
end;
попробовал так, но удаляет совсем не те столбцы...даже медитация не помогает

Добавлено через 12 минут
Все, разобрался Перебор на листочке бумаги помог)
вот так получилось:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
procedure TForm1.Button2Click(Sender: TObject);
var i,j,s:integer;
        r:integer;
begin
 for i:=0 to StringGrid1.RowCount-1 do
  begin
   r:=0;
  for j:=0 to StringGrid1.ColCount-1 do
   begin
    StringGrid2.Cells[i,j]:=StringGrid1.Cells[i,j];
    s:=StrToInt(StringGrid2.Cells[i,j]);
     if s<>0 then
      r:=r+1;
   end;
    if (r mod 2)=0 then
     StringGrid2.Cols[i].Clear;
  end;
end;
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.06.2011, 16:50
Ответы с готовыми решениями:

Удаление строк и столбцов из матрицы. Тестирование программы
Здравствуйте. Имеется следующее условие задачи: Ввести матрицу m*n. Удалить из...

Удаление строк/столбцов, содержащих максимальный элемент матрицы
помогите пожалуйста, выскакивает ошибка &quot;is not a valid integer value&quot;....

Удаление столбцов матрицы, где есть хоть одно число Фибоначчи
please, очень нужно процедуру удаления столбцов матрицы(матрица произвольной...

Удаление столбцов из эксель файла
Нужен хелп. :)Никак не получается удалить столбцы из эксель файла. Использую...

StringGrid и матрица. Удаление столбцов.
Здравствуйте, форумчане. Мне нужно сделать, чтобы из матрицы удалились столбцы...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.06.2011, 16:50

Поставить ограничение на удаление названий столбцов
Здравствуйте! Скажите как в этой процедуре поставить ограничение что бы не...

Добавление\удаление строк и столбцов в SringGrid Delphi
Необходимо, что бы строки и столбцы удалялись с конца, сохраняя содержимое...

есть программа надо некоторыю нюансы исправить . типа удаление столбцов и наладки сохранения открытия файлов
Срочно нужна помощ . курсач горит . есть программа надо некоторыю нюансы...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru