![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Регистрация: 26.10.2010
Сообщений: 7
|
![]()
Народ . У меня проблема со Stringgrid . Моя задача состоит в том , что бы найти в stringgrid столбец , в котором находиться наибольшее количество положительный чисел . Вот мой код :
procedure TForm1.Button2Click(Sender: TObject); var jmax,max,sum,i,j:integer; begin sum:=0; max:=0; for j:=0 to stringgrid1.colCount-1 do begin sum:=0; for i:=0 to stringgrid1.rowCount-1 do begin if strtoint(stringgrid1.Cells[j,i])>0 then sum:=sum+strtoint(stringgrid1.Cells[j,i]); end; if sum>max then begin max:=sum; jmax:=j; end; end; for j := jmax to StringGrid1.colCount - 2 do for I := 0 to StringGrid1.rowCount - 1 do begin StringGrid1.Cells[j,i]:=StringGrid1.Cells[j+1,i]; end; StringGrid1.colCount:=StringGrid1.c olCount-1; я заполняю Stringgrid кнопкой рандомно , мне выводиться какой то массив . Проблема состоит в том , что когда в массиве есть несколько столбцов , в которых одинаковое количество положительных чисел , то мне нужно удалять первый такой столбец , а удаляет самый последний . И я не знаю как так сделать . |
![]() |
![]() |
![]() |
#2 |
Форумчанин
Регистрация: 05.04.2010
Сообщений: 410
|
![]()
используйте цикл с downto
и еще, sum:=sum + strtoint(stringgrid1.Cells[j,i]) - наверное надо Inc(Sum) вам ведь нужно найти кол-во положительных эл-тов, а не их сумму.
ICQ: 593-013-807
|
![]() |
![]() |
![]() |
#3 |
Регистрация: 26.10.2010
Сообщений: 7
|
![]()
а можешь показать как ?
|
![]() |
![]() |
![]() |
#4 |
Форумчанин
Регистрация: 05.04.2010
Сообщений: 410
|
![]()
на счет downto я тупанул, это если бы у тебя проверялось по условию Sum >= Max.
Вот код: Код:
ICQ: 593-013-807
|
![]() |
![]() |
![]() |
#5 |
Регистрация: 26.10.2010
Сообщений: 7
|
![]()
не не работает . теперь оно удаляет просто последний столбец при любом результате
|
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
проблема в StringGrid | kta87 | Общие вопросы Delphi | 3 | 12.06.2010 14:42 |
Проблема со StringGrid(Не прозрачное выделение)) | sawer5 | Общие вопросы C/C++ | 0 | 04.04.2010 12:24 |
Проблема со StringGrid. Не работает код. | -=aHTPoПоС=- | Помощь студентам | 9 | 05.11.2009 16:07 |
Проблема выделения ячейки в StringGrid | Velh | Компоненты Delphi | 5 | 23.10.2009 00:20 |
StringGrid[..]..... | zotox | Помощь студентам | 3 | 24.07.2009 10:49 |