Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 05.04.2014, 22:13   #1
Lulika
 
Регистрация: 01.10.2011
Сообщений: 4
Восклицание заполнение stringGrid по условию Delphi

есть stringGrid1, который заполняется с клавы и stringGrid2, заполняется по условию: a[i,j] = максимальный элемент в j столбце SG1 - a[i,j].

например. если SG1 заполнен так: (максимум в 1 столбце-8, во 2 столбце-3)
5 3
8 1

то SG2 будет:
3 0
0 2


Код:
for j:=1 to StringGrid1.ColCount-1 do  
begin
   max:=glmas[1,j];

     for i:=1 to StringGrid1.RowCount-1 do  
           begin
               if glmas[i,j]>max then
               max:=glmas[i,j];
           end;
     for s:=1 to StringGrid1.RowCount-1 do
     StringGrid2.Cells[s,j]:=FloatToStr(max-StrToFloat(StringGrid1.Cells[s,j]));
end;
максимум находит, но StringGrid2 заполняет не по столбцам, а по строкам. Что нужно исправить? подскажите
Lulika вне форума Ответить с цитированием
Старый 06.04.2014, 10:23   #2
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,229
По умолчанию

Цитата:
Сообщение от Lulika Посмотреть сообщение
максимум находит, но StringGrid2 заполняет не по столбцам, а по строкам. Что нужно исправить? подскажите
видимо, поменять местами индексы в методе Cells
индексы в этом методе идут наоборот:

StringGrid1.Cells( ИндексСтолбца, ИндексСтроки )
Serge_Bliznykov вне форума Ответить с цитированием
Старый 08.04.2014, 16:48   #3
Lulika
 
Регистрация: 01.10.2011
Сообщений: 4
По умолчанию

спасибо)) все получилось
Lulika вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Delphi 7 вывести в DBGrid только те записи, которые соответствуют условию, содержащемуся в StringGrid Ягодка Помощь студентам 1 26.02.2013 19:48
Заполнение строки StringGrid согласно условию Kserken Помощь студентам 0 28.11.2010 13:39
Заполнение строки StringGrid согласно условию Kserken Общие вопросы Delphi 1 28.11.2010 12:25
[Delphi] Заполнение StringGrid из txt ZePr Помощь студентам 2 22.07.2010 14:16
заполнение ячеек по условию Arcto Microsoft Office Excel 1 17.02.2010 11:21