![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() Товарищи, как найти максимум в каждом столбце StringGrid1, и перенести максимум из каждого столбца StringGrid1 в столбцы StringGrid2.
|
#2
|
|||
|
|||
![]() кто нибудь в состоянии помоч.
|
#3
|
|||
|
|||
![]() Циклом. Точнее 2мя.
Код:
For I := 0 To StringGrid1.Cols-1 Do Begin AMax := 0; For J := 0 To StringGrid1.Rows-1 Do If AMax < StrTofloat(StringGrid1.Cell[I,J]) Then AMax := StrTofloat(StringGrid1.Cell[I,J]); StringGrid2.Cell[I,0] := Floattostr(AMax); End; |
#4
|
|||
|
|||
![]() Огромное спасибо.
Тока я немного подправил, может кому еще пригодиться. Код:
var i,max,j: integer; begin For I := 0 To StringGrid1.ColCount-1 Do Begin Max := 0; For J := 0 To StringGrid1.RowCount-1 Do If Max < StrTofloat(StringGrid1.Cells[I,J]) Then Max := StrToint(StringGrid1.Cells[I,J]); StringGrid2.Cells[I,0] := Floattostr(Max); End; end; end. |