Форум: "Начинающим";
Текущий архив: 2006.04.16;
Скачать: [xml.tar.bz2];
Вниз
Помогите, пожалуйста! Найти похожие ветки
← →
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?
← →
Rial © (2006-03-29 19:53) [6]
Edit.Text:=Max(..);
А когда выйдет наконец-то Delphi 8.0, то можно будет попробывать даже
Label.Caption:=Max();
← →
Chapchaps (2006-03-29 20:09) [7]а я и в 7-ом так сделела - все работает. А вот в Edit так не получается, говорит Max - недопустимый параметр. Кстати что в скобках?
← →
Rial © (2006-03-29 20:22) [8]А в скобках - твой StringGrid.
Edit.Text:=Max(StringGrid);
Возможно, в Uses указан модуль "Math", а у него есть свой Max, да не один.
Если так - назови функцию по-другому.
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.04.16;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.045 c
