Цитата:
|
как выести минимальную строку
|
не надо выедать строки, даже если они минимальны - что бы это ни значило.
Видимо вам нужно получить индекс ячеки грида, содержащий минимальное значение?
Попробуйте так:
Код:
Var
Min: TPoint;
...
Min := Point(0, 0);
for i:=0 to n
do for j:=0 to n1
do if StrToFloat(Cells[j,i]) < StrToFloat(Cells[Min.X,Min.Y]) then Min := Point(i,j);
Memo1.Lines.Add('Минимальный элемент = ' + FloatToStr(Cells[Min.X,Min.Y]) + ' расположенный в строке ' + IntToStr(Min.Y));