Поиск минимального элемента в stringgrid

[igabenu]

Задача следующая:
Имею стринггрид 4x4 заполненый рандомными числами. Как найти в каждой строке минимальный элемент, а потом среди них -максимальный?

Заранее спасибо за помощь

[asmodey1]

max:=0;
min:=1000000;
for i:=1 to StringGrid1.RowCount-1 do
for j:=1 to StringGrid1.ColCount-1 do
if StrToInt(StringGrid1.Cells[j,i])>max then
..........
if StrToInt(StringGrid1.Cells[j,i])<min then
...
end;
end;

Идея ясна ?

[Serge_Bliznykov]

max:=0;
min:=1000000;

Вот с этим не согласен.
Это некрасиво и не надёжно!
Иницилизировать лучше конкретным значением из анализируемых данных.
например, для начала можно считать, что и минимальное и максимальное значение находится в ячейке 0,0 (или 1,1 - если есть заголовки):

max:=StrToInt(StringGrid1.Cells[0,0]);
min:=StrToInt(StringGrid1.Cells[0,0]);

for i:=1 to StringGrid1.RowCount-1 do
for j:=1 to StringGrid1.ColCount-1 do

вообще-то, нумерация начинается с нуля.
Но брать нумерацию с 0 или с 1 зависит от расположения данных в StringGrid (есть ли фиксированные столбцы/фиксированные строки)...

[Stilet]

Тут все некрасиво и не.. гм..

var min,max,i,j,k:integer;
...
With StringGrid1 do begin
 for i:=0 to RowCount-1 do begin
  for j:=0 to ColCount-1 do begin
   k:=random(100);
   Cells[j,i]:=IntToStr(k);
   if (k<min)or(j=0) then min:=k;
  end; 
  if (min>max)or(i=0) then max:=min;
 end;
end;

Короче двух зайцев одной пулей.