![]() |
|
Модераторы: Poseidon, Snowy, bems, MetalFan |
![]()
|
|
| GuManOiD |
|
|||
![]() Шустрый ![]() Профиль Группа: Участник Сообщений: 79 Регистрация: 12.9.2005 Репутация: нет Всего: нет |
Задача такова, в уже написанном приложении слишком много операций по инициализации и настройке приложения приходится выполнять при его запуске до показа главной формы приложения.
Вот написал поток-загрузчик который на Execute создает форму с ProgressBar и после выполняет все процедуры загрузки а ProgressBar соответственно должен показывать процесс загрузки. Все процедуры примерно одинаковы по времени выполнения. Однако в вариант в котором я буду после каждой выполненной процедуры увеличивать позицию ProgressBar-а мне кажется не самым оптимальным. Т.е.:
Надеюсь логика понятна. Нельзя ли сделать это более рационально? |
|||
|
||||
| Guedda |
|
|||
![]() Подрывник ![]() ![]() ![]() ![]() Профиль Группа: Завсегдатай Сообщений: 3137 Регистрация: 27.12.2005 Где: Ростов-на-Дону Репутация: 14 Всего: 78 |
Да вроде как и этот метод оптимален... Я, допустим, так делаю... Только создаю Splash форму, в которой есть прогресс, и из потока добавляю позиция+1.
-------------------- Ll 2 |
|||
|
||||
| GuManOiD |
|
||||
![]() Шустрый ![]() Профиль Группа: Участник Сообщений: 79 Регистрация: 12.9.2005 Репутация: нет Всего: нет |
Да все бы хорошо... ну как это... я вначале на VCPP начинал и справлялся списком функций. Т.е. обход инициализирующих функций циклом.
Просто этот способ в Delphi я так понял реализовать не возможно. Или возможно? Создать что то вроде массива чтоли с указателями на функции. Все функции без параметров. Буду благодарен за малюсенький кусочек кода если это возможно. Добавлено @ 11:29 Вопрос в догонку
Это будет работать? Добавлено @ 11:32 Или после
Тип TProc и будет обозначать указатель на процедуру? Добавлено @ 11:36 Ой, а че это? Это сообщение отредактировал(а) GuManOiD - 11.11.2006, 11:29 |
||||
|
|||||
| GuManOiD |
|
|||
![]() Шустрый ![]() Профиль Группа: Участник Сообщений: 79 Регистрация: 12.9.2005 Репутация: нет Всего: нет |
Вопрос решен.
Создал класс TProcedureList (TList); Добавил необходимые процедуры. И циклом прохожу по всем процедурам. Довольно гибко и рационально я считаю. |
|||
|
||||
![]()
|
| Правила форума "Delphi: Общие вопросы" | |
|
|
Запрещается! 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader. |
| 0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | Delphi: Общие вопросы | Следующая тема » |
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |