[robin39]

Товарищи, как найти максимум в каждом столбце StringGrid1, и перенести максимум из каждого столбца StringGrid1 в столбцы StringGrid2.

[robin39]

кто нибудь в состоянии помоч.

[lmikle]

Циклом. Точнее 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;

[robin39]

Огромное спасибо.
Тока я немного подправил, может кому еще пригодиться.

Код:

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.