|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
07.05.2009, 21:18 | #1 |
Пользователь
Регистрация: 07.05.2009
Сообщений: 10
|
StringGrid ошибочка
Здравствуйте! Суть вопроса:Сделал рандом вбивание чисел на форме в 5 Stringgrid. Также на форме есть кнопка которая выводит форм два..там идет подсчет чисел из всех 5-ти стрингов в один! Ошибка Is not a valid floating point value!
Ошибка на пустое значение, я ее нашел где именно Form16.StringGrid1.Cells[i,j]:=''; что сюда дописать не знаю)) Вообщем если можете помочь в нубском вопросе, и разобрать его то велком! Заранее спасибо! Код программы: Рандом: randomize; for I := 1 to form15.StringGrid1.ColCount do for j := 1 to form15.StringGrid1.RowCount do Form15.StringGrid1.Cells[i,j]:=inttostr(random(Ran)+1); for I := 1 to form15.StringGrid2.ColCount do for j := 1 to form15.StringGrid2.RowCount do Form15.StringGrid2.Cells[i,j]:=inttostr(random(Ran)+1); for I := 1 to form15.StringGrid3.ColCount do for j := 1 to form15.StringGrid3.RowCount do Form15.StringGrid3.Cells[i,j]:=inttostr(random(Ran)+1); for I := 1 to form15.StringGrid4.ColCount do for j := 1 to form15.StringGrid4.RowCount do Form15.StringGrid4.Cells[i,j]:=inttostr(random(Ran)+1); for I := 1 to form15.StringGrid5.ColCount do for j := 1 to form15.StringGrid5.RowCount do Form15.StringGrid5.Cells[i,j]:=inttostr(random(Ran)+1); Вбивает общий подсчет на вторую форму в один стринг for i := 1 to StringGrid1.ColCount do for j := 1 to StringGrid1.RowCount do begin Form16.StringGrid1.Cells[i,j]:=''; end; sum:=0; for i := 1 to StringGrid1.ColCount-1 do begin for j := 1 to StringGrid1.RowCount do begin sum:=sum+StrToFloat(StringGrid1.Cel ls[j,i]); end; Form16.StringGrid1.Cells[1,i]:=FloatToStr(sum/StrToInt(Label3.Caption)); sum:=0; end; |
08.05.2009, 05:29 | #2 |
Форумчанин
Регистрация: 04.04.2009
Сообщений: 438
|
Нужен весь исходник. В приведенном коде не понятно что к чему.
Код:
Если находится на другой форме, то сканирование (i, j) происходит по одной таблице, а присвоение пустого значения совсем в другую таблицу. Ошибка "Is not a valid floating point value!" может происходить скорее всего здесь: StrToFloat(StringGrid1.Cells[j,i]);, если в ячейке пустая строка. |
08.05.2009, 13:59 | #3 |
SQL-коддинг
Участник клуба
Регистрация: 16.01.2009
Сообщений: 1,192
|
а что мешает сделать так в первом цикле?
Код:
Код:
|
08.05.2009, 14:07 | #4 |
Старожил
Регистрация: 28.01.2009
Сообщений: 21,000
|
а разве try except end: отменили?
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел. Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
StringGrid | Witaliy | Общие вопросы Delphi | 4 | 05.04.2012 11:57 |
StringGrid | Chudo4258 | Помощь студентам | 1 | 17.03.2009 09:24 |
Borland Pascal 8. Ошибочка...:( | spein | Помощь студентам | 5 | 27.02.2009 17:19 |
stringgrid | UROKSAN | Общие вопросы Delphi | 1 | 08.04.2008 13:28 |
StringGrid | Dimon88 | Компоненты Delphi | 15 | 14.02.2008 11:44 |