Скачать: CL | DM;

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

← →
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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.031 c