[tanny]

нужно найти максимальный элемент в столбце stringgrid1 и вписать его в stringgrid2, помогите пожалуйста

[M.A.D.M.A.N.]

Код:

var x,y:integer;
  temp,max:integer;
begin
  temp:=0;
  max:=0;
  for y:=1 to stringgrid1.rowcount do
    for x:=1 to stringgrid1.colcount do
      begin
        temp:= strtoint(stringgrid1.cells[y,x]{если я не путаю расстановку});
        if temp>max then
          max:=temp;
      end;
end;

Ну а Max-это максимальное значение которое тебе надо.

[Thrasher]

2 M.A.D.M.A.N. ай-ай-ай! А если элементы таблицы будут меньше нуля?

В листинге поменять max:=0 на max:=strtoint(stringgrid1.cells[0,0] (в общем на логически 1-й элемент таблицы)