 |
|
Модераторы: Poseidon, Snowy, bems, MetalFan |
 
|
|
программа "зависает" 
| Napalm |
|
|||
|
Шустрый  Профиль Группа: Участник Сообщений: 55 Регистрация: 4.3.2004 Репутация: нет Всего: нет |
когда работает кусок программы то прога начинает жрать немеряные ресурсы машины и визуально она "подвисает" т.е. переключение на другие задачи идет, но когда переключаюсь на свою прогу, то окно не прорисовывается... что посоветуете?
пример кода while i<datasource1.DataSet.RecordCount do begin if datasource1.DataSet.Fields[18].AsInteger=0 then adotable1.InsertRecord( [datasource1.DataSet.Fields[0].AsString, datasource1.DataSet.Fields[1].AsString, datasource1.DataSet.Fields[2].AsFloat, datasource1.DataSet.Fields[3].AsFloat, datasource1.DataSet.Fields[4].AsFloat, datasource1.DataSet.Fields[5].AsFloat, datasource1.DataSet.Fields[6].AsFloat, datasource1.DataSet.Fields[7].AsFloat, datasource1.DataSet.Fields[8].AsFloat, datasource1.DataSet.Fields[9].AsFloat, datasource1.DataSet.Fields[10].AsFloat, datasource1.DataSet.Fields[11].AsFloat, datasource1.DataSet.Fields[12].AsFloat, datasource1.DataSet.Fields[13].AsString, datasource1.DataSet.Fields[14].AsDateTime, datasource1.DataSet.Fields[15].AsString, datasource1.DataSet.Fields[16].AsString, datasource1.DataSet.Fields[17].AsFloat, false]) else adotable1.InsertRecord( [datasource1.DataSet.Fields[0].AsString, datasource1.DataSet.Fields[1].AsString, datasource1.DataSet.Fields[2].AsFloat, datasource1.DataSet.Fields[3].AsFloat, datasource1.DataSet.Fields[4].AsFloat, datasource1.DataSet.Fields[5].AsFloat, datasource1.DataSet.Fields[6].AsFloat, datasource1.DataSet.Fields[7].AsFloat, datasource1.DataSet.Fields[8].AsFloat, datasource1.DataSet.Fields[9].AsFloat, datasource1.DataSet.Fields[10].AsFloat, datasource1.DataSet.Fields[11].AsFloat, datasource1.DataSet.Fields[12].AsFloat, datasource1.DataSet.Fields[13].AsString, datasource1.DataSet.Fields[14].AsDateTime, datasource1.DataSet.Fields[15].AsString, datasource1.DataSet.Fields[16].AsString, datasource1.DataSet.Fields[17].AsFloat, true]); datasource1.DataSet.Next; inc(i); end; |
|||
|
||||
Загрузка ...
| <Spawn> |
|
|||
 Око кары:) Профиль Группа: Экс. модератор Сообщений: 2776 Регистрация: 29.1.2003 Где: Екатеринбург Репутация: 44 Всего: 64 |
поставь Appliction.ProcessMessages для каждой итерации цикла
-------------------- "Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков. |
|||
|
||||
| Napalm |
|
|||
|
Шустрый Профиль Группа: Участник Сообщений: 55 Регистрация: 4.3.2004 Репутация: нет Всего: нет |
класная штука. можно коротко сказать что оно делает? и кстати насколько серьезно замедляет работу программы? и еще есть некоторое неудобство - то, что все компоненты которые на форме- активны и работают... ну да ладно. буду благодарен за ответы
и кстати возможно ли убрать зависание тут idFTP1.Get(filename,path); Это сообщение отредактировал(а) Napalm - 17.3.2004, 16:12 |
|||
|
||||
| Pakshin A. S. |
|
|||
|
Эксперт Профиль Группа: Участник Клуба Сообщений: 5056 Регистрация: 16.2.2003 Репутация: 21 Всего: 61 |
А елеси замутить процессик?! Без Precess'a можно будет обойтися...
|
|||
|
||||
| Vit |
|
|||
 Vitaly Nevzorov Профиль Группа: Экс. модератор Сообщений: 10964 Регистрация: 25.3.2002 Где: Chicago Репутация: 48 Всего: 207 |
А это как? -------------------- With the best wishes, Vit I have done so much with so little for so long that I am now qualified to do anything with nothing Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru |
|||
|
||||
| Pakshin A. S. |
|
|||
|
Эксперт Профиль Группа: Участник Клуба Сообщений: 5056 Регистрация: 16.2.2003 Репутация: 21 Всего: 61 |
Ну засунуть цикл в процесс
 Дааа... дибилизмом попахивает |
|||
|
||||
| Vit |
|
|||
|
Vitaly Nevzorov Профиль Группа: Экс. модератор Сообщений: 10964 Регистрация: 25.3.2002 Где: Chicago Репутация: 48 Всего: 207 |
Именно! -------------------- With the best wishes, Vit I have done so much with so little for so long that I am now qualified to do anything with nothing Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru |
|||
|
||||
| p0s0l |
|
|||
 Г-н Посол Профиль Группа: Экс. модератор Сообщений: 3668 Регистрация: 13.7.2003 Где: 58°38' с.ш. 4 9°41' в.д. Репутация: 58 Всего: 112 |
Pakshin A. S., наверное, хотел сказать поток, а не процесс. Хотя и с процессом можно намутить...
-------------------- С уважением, г-н Посол. |
|||
|
||||
| Cheba |
|
|||
 pointless one Профиль Группа: Vingrad developer Сообщений: 1777 Регистрация: 27.11.2003 Где: /dev/null Репутация: 1 Всего: 62 |
Ты idAntyfriz на форму положил? В доках пишут, что он помогает... |
|||
|
||||
| Napalm |
|
|||
|
Шустрый Профиль Группа: Участник Сообщений: 55 Регистрация: 4.3.2004 Репутация: нет Всего: нет |
ок, спасибо. реально помагает
 кстати где можно взять доку по id? |
|||
|
||||
|
|
| Правила форума "Delphi: Общие вопросы" | |
|
|
Запрещается! 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader. |
| 0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | Delphi: Общие вопросы | Следующая тема » |
[ Время генерации скрипта: 0.0545 ] [ Использовано запросов: 22 ] [ GZIP включён ]
Реклама на сайте Информационное спонсорство
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |