Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

Chapchaps © (2006-03-29 18:35:00)
Подскажите как в StringGrid вычислить max или min элемент!

Rial (2006-03-29 20:22:00) [1]
А в скобках - твой StringGrid.

Edit.Text:=Max(StringGrid);

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

Chapchaps (2006-03-29 20:09:00) [2]
а я и в 7-ом так сделела - все работает. А вот в Edit так не получается, говорит Max - недопустимый параметр. Кстати что в скобках?

Rial (2006-03-29 19:53:00) [3]
Edit.Text:=Max(..);

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

Label.Caption:=Max();

Chapchaps (2006-03-29 19:48:00) [4]
А как вывести результат в Edit?

Chapchaps (2006-03-29 18:59:00) [5]
Спасибо большое!!!

Rial (2006-03-29 18:56:00) [6]
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:49:00) [7]
А это как, подскажите чайнику!

Рамиль (2006-03-29 18:44:00) [8]
Вычисляй как для обычного массива.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »