|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
02.05.2012, 21:08 | #1 |
Регистрация: 09.08.2011
Сообщений: 5
|
Как сумировать Edit-ы
Как сумировать Edit-ы , не по названию а только те например фон у которых зеленного цвета,
|
02.05.2012, 23:50 | #2 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Код:
I'm learning to live...
|
03.05.2012, 17:24 | #3 |
Регистрация: 09.08.2011
Сообщений: 5
|
Если делаю глобальные переменные var i,sum,ControlsCount:integer; то
for i:=0 to ControlsCount -1 do if (Controls[i] is TEdit)and(TEdit(Controls[i]).color=clGreen) then sum:=sum+StrToIntDef(TEdit(Controls[i]).text,0); Выдает ошибку Project1.exe raised exception class ElistError with messege 'List index out of bounds (5)'. Process stopped. Use Step or run to continue. если локальные переменные var i,sum,ControlsCount:integer; то результат получается 0 Где собака зарыта. Заране благодарен. |
03.05.2012, 17:36 | #4 | |
Форумчанин
Регистрация: 26.03.2012
Сообщений: 665
|
Цитата:
А вот подумайте и скажите, почему все-таки такая разница результата между глобальными и локальными? |
|
03.05.2012, 18:18 | #5 |
Регистрация: 09.08.2011
Сообщений: 5
|
я новичёк так можно сказать без опыта подскажите пожалуйста, непонятноооо
|
03.05.2012, 21:25 | #6 | |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Цитата:
I'm learning to live...
|
|
03.05.2012, 21:38 | #7 | |
Регистрация: 09.08.2011
Сообщений: 5
|
Цитата:
ну а этот код кто не хочет думать а ищет ответ sum:=0; Код:
Если edit расположены на форме то работает а вот если edit расположены на вкладке TabSheet то опять ошибка Выдает ошибку Project1.exe raised exception class ElistError with messege 'List index out of bounds (1)'. Process stopped. Use Step or run to continue. Последний раз редактировалось Stilet; 04.05.2012 в 08:04. |
|
04.05.2012, 08:07 | #8 | |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Цитата:
Тебе нужно вместо Controls использовать доступ к списку компонентов в приложении через Components и ComponentCount. Схема та же.
I'm learning to live...
|
|
04.05.2012, 10:20 | #9 | |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
Цитата:
если не ошибаюсь, то это можно записать так: Код:
|
|
04.05.2012, 10:24 | #10 |
Регистрация: 09.08.2011
Сообщений: 5
|
Огромное спасибо и уважуха. Работает. Вы просто боги программирования.
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Как сумировать ячейки с такими числами? | Sprut1 | Microsoft Office Excel | 6 | 15.06.2011 08:33 |
Копирование строки из Edit в другой Edit. | Ibanez Wizard | Win Api | 3 | 29.03.2011 02:46 |
Сумировать ячейки в диапазоне игнорируя даты | Severny | Microsoft Office Excel | 12 | 23.02.2011 01:32 |
Сумировать поле в зависимости от выбраных на форме элементов полей | dplz | Microsoft Office Access | 1 | 16.02.2010 19:29 |
Сумировать данные из нескольких файлов excel в 1 общий | Miishka | Microsoft Office Excel | 8 | 12.11.2009 07:49 |