![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
|
Опции темы | Поиск в этой теме |
![]() |
#11 |
Пользователь
Регистрация: 20.04.2009
Сообщений: 15
|
![]()
Держи пример.
procedure TForm1.Button2Click(Sender: TObject); var i,j : integer; max : integer; begin max := 0; for i := 0 to StringGrid1.ColCount - 1 do for j := 0 to StringGrid1.RowCount - 1 do if StrToInt(StringGrid1.Cells[i,j]) > max then max := StrToInt(StringGrid1.Cells[i,j]); ShowMessage(IntToStr(max)); end; |
![]() |
![]() |
![]() |
#12 |
Пользователь
Регистрация: 21.04.2009
Сообщений: 21
|
![]()
Вот, я сделала вроде, но какая-то непонятная ошибка выходит:
Код:
|
![]() |
![]() |
![]() |
#13 |
Пользователь
Регистрация: 20.04.2009
Сообщений: 15
|
![]() Код:
Edit4.Text:=Edit4.Text+FloatToStr(j ); FloatToStr можно заменить на IntToStr Код:
|
![]() |
![]() |
![]() |
#14 |
Пользователь
Регистрация: 21.04.2009
Сообщений: 21
|
![]() ![]() Код:
|
![]() |
![]() |
![]() |
#15 |
Пользователь
Регистрация: 20.04.2009
Сообщений: 15
|
![]() Код:
|
![]() |
![]() |
![]() |
#16 |
Пользователь
Регистрация: 21.04.2009
Сообщений: 21
|
![]()
Большое спасибо, теперь всё работает!
![]() |
![]() |
![]() |
![]() |
#17 |
Пользователь
Регистрация: 20.04.2009
Сообщений: 15
|
![]()
Спасибо в карман не положишь
![]() ![]() ![]() |
![]() |
![]() |
![]() |
|
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
массив замена -, на+. Delphi | serj-07 | Помощь студентам | 20 | 16.06.2012 14:24 |
Массив, Delphi | Melissa | Помощь студентам | 2 | 19.03.2009 09:26 |
Массив (Delphi) | stasig | Помощь студентам | 2 | 28.02.2009 21:43 |
Delphi Двумерный массив | forumu | Помощь студентам | 1 | 23.12.2007 02:04 |