Помогите, пожалуйста!

← →
Chapchaps (2006-03-29 18:35) [0]

Подскажите как в StringGrid вычислить max или min элемент!

← →
Рамиль © (2006-03-29 18:44) [1]

Вычисляй как для обычного массива.

← →
Chapchaps (2006-03-29 18:49) [2]

А это как, подскажите чайнику!

← →
Rial (2006-03-29 18:56) [3]

function Max(Const Grid:TStringGrid):String;
Var I,J,X,Y:Integer;
begin
Result:="";
With Grid do begin
X:=RowCount;
Y:=ColCount;
For I:=0 to X-1 do
For J:=0 to Y-1 do
If (Cells[I,J]>0)then
Result:=Cells[I,J];
end;
end;

Min - аналогично.
Если елементы - числа, то
function Max(...):Integer;

и сравнивай StrToInt(Cells[I,J]) и Result;

← →
Chapchaps (2006-03-29 18:59) [4]

Спасибо большое!!!

← →
Chapchaps (2006-03-29 19:48) [5]

А как вывести результат в Edit?

Edit.Text:=Max(..);

А когда выйдет наконец-то Delphi 8.0, то можно будет попробывать даже

Label.Caption:=Max();

← →
Chapchaps (2006-03-29 20:09) [7]

а я и в 7-ом так сделела - все работает. А вот в Edit так не получается, говорит Max - недопустимый параметр. Кстати что в скобках?

А в скобках - твой StringGrid.

Edit.Text:=Max(StringGrid);

Возможно, в Uses указан модуль "Math", а у него есть свой Max, да не один.
Если так - назови функцию по-другому.

Помогите, пожалуйста! Найти похожие ветки