ShIvADeSt Moderator Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Продолжение темы Вопросы по Delphi (до версии 2009) - часть 4 Познаем сами, помогаем другим... Обсуждаем вопросы, не связанные с юникоидными версиями Delphi - для этого есть соответствующая тема (см. ссылки ниже). Правила топика: Прежде чем спрашивать: Желательно изучить вопрос, попытаться найти ответ в прилагаемых мануалах, хелпах и анализируя исходники. Выполнить поиск по топику (открыть "Версия для печати" и поискать ответ там). Применить фильтр по разделу "Прикладное программирование". Ответы на многие старые вопросы могли быть даны в отдельных темах. Продумайте вопрос. На поверхностные вопросы вы получите поверхностные ответы, или вообще ответов не получите. Желательно указывать версии используемого компилятора и операционной системы. Прежде чем отвечать: Если не можете помочь, не мешайте. Если уж вы отвечаете на вопрос, давайте ответ по сути. Если вы не уверены, так и говорите! Ошибочный, но авторитетно звучащий ответ хуже, чем отсутствие ответа. Задавайте дополнительные вопросы, чтобы получить больше информации. Отсутствие ответа не равносильно игнорированию - иногда участники форума просто не знают ответ. Повторная посылка вопроса не приветствуется. Посты типа "неужели никто не знает ответа..." или "может мне все-таки кто-нибудь ответит" недопустимы.   Все большие куски кода (более 5 строк) оформляем в тег [morе] дабы уменьшить размер поста. FAQ по тегу [morе]. Некоторые "родственные" топики: Вопросы по Delphi (версии 2009-2010 Weaver) Вопросы по компонентам для Delphi, C++ Builder Использование DevExpress Вопросы по Ehlib Компоненты и утилиты для Delphi/BCB/FreePascal/Lazarus - только Open Source Коммерческие компоненты и утилиты для Delphi/BCB Прикладное программирование и не только... См. также: Некоторые полезные ресурсы о Delphi Всего записей: 3956 | Зарегистр. 29-07-2003 | Отправлено: 02:09 28-06-2009 | Исправлено: psa1974, 12:00 02-02-2010

Varenik Advanced Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору eddoc После создания потока нужно дать ему запуститься: begin ....     MyThread.Create;     Application.ProcessMessages; ... end;   иначе поток стартует только после вот этого end ---------- Если нравится, считайте, что получилось… Всего записей: 1766 | Зарегистр. 21-07-2001 | Отправлено: 07:49 13-05-2010

Man_Without_Face Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Доброго времени суток. Скажите пож как передать в Tquery значение поля? Спасибо. Всего записей: 381 | Зарегистр. 25-01-2010 | Отправлено: 10:08 13-05-2010

Man_Without_Face Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору delover Спасибо, вопрос снят. Решил свой вопрос через калькулируемое поле. Всего записей: 381 | Зарегистр. 25-01-2010 | Отправлено: 11:57 13-05-2010

eddoc Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Varenik Спасибо, собственно работало и так, и так Единственное НО: окошко сплэш-прекрасно отображается (я использую сплэш от softwarer'a, немного доработанное собственным напильником), только все равно в некоторые моменты оно не успевает прорисоваться код   Похоже, придется изучать АПИ   Frodo_Torbins Да, я уже понял, что кавалерийским наскоком в моем случае не обойдешься. Ладно, пойду читать Григорьева, благо эту книгу я в свое время прикупил "про запас" Всего записей: 328 | Зарегистр. 25-11-2007 | Отправлено: 23:22 13-05-2010

YuriyRR Full Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору eddoc     Добавлено: eddoc Создаешь окно в основном потоке а его перерисовку из трэда делаешь при помощи метода Synchronize.   Добавлено: А в основном потоке   Call the CheckSynchronize routine periodically within the main thread Всего записей: 516 | Зарегистр. 07-06-2007 | Отправлено: 00:28 14-05-2010

ShIvADeSt Moderator Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Я под семеркой (Win7) Дельфи 5 поставил и компилял проекты. Проблем не было, думаю с Дельфи 7 тем более. ---------- И создал Бог женщину... Существо получилось злобное, но забавное... Всего записей: 3956 | Зарегистр. 29-07-2003 | Отправлено: 11:12 14-05-2010

eddoc Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору YuriyRR уже по-всякому пытался. В тестовых проектах все прекрасно отображается и рисуется, а вот в реале на WriteTrans.Commit происходит "замораживание" подлежащего сплэша и подлежащего окна, т.е. вот тут приложил скрины Цитата: А в основном потоке   Call the CheckSynchronize routine periodically within the main thread   как-то смущает справка Цитата: It is not necessary to call CheckSynchronize in a GUI application. The call to CheckSynchronize is made automatically by the application object. In a non-GUI application, you must call CheckSynchronize if you use the Synchronize method of TThread. To do this, set the WakeMainThread variable to a procedure that calls CheckSynchronize.   а не могли бы показать, где в моем коде надо воткнуть эту функцию? Всего записей: 328 | Зарегистр. 25-11-2007 | Отправлено: 16:32 14-05-2010 | Исправлено: eddoc, 18:12 14-05-2010

Bonivur Advanced Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору У меня на форме есть Memo. При вставке в него текста, происходит обработка и результат опять пишется в этом Мемо. Как заставить его работать с Uncode? То есть,   var     s: WideString; ...   s := Memo.Text;   далее невозможно сделать проверку типа   if s[23] in ['a'..'z'] then...     пишет что типы не совпадают WideChar и Char. Какой может быть выход в данном случае? ---------- Что будет стоить тысяча слов когда важна будет крепость руки? (В.Цой) Всего записей: 655 | Зарегистр. 22-06-2003 | Отправлено: 18:48 14-05-2010

psa1974 Full Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Bonivur не воспроизводится. Пробовал в Д2007. Компиилятор предупреждает что "WideChar reduced to byte char in set expressions", но компилирует. ---------- У программёра есть два состояния: "Втупляю" и "Попёрло"... Всего записей: 438 | Зарегистр. 08-11-2005 | Отправлено: 20:10 14-05-2010

Bonivur Advanced Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору psa1974 У меня Delphi 7. И там пишет Error: Incompatible types "WideChar" and "Char". ---------- Что будет стоить тысяча слов когда важна будет крепость руки? (В.Цой) Всего записей: 655 | Зарегистр. 22-06-2003 | Отправлено: 20:16 14-05-2010

psa1974 Full Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Bonivur Кстати, в Д2007 хоть и компилируется, но если в s[23] будет символ кириллицы то это if s[23] in ['а'..'я'] then... вернет ложь, потому что компилятор при сравнении WideChar c набором "Set of char" (который может адресовать только 256 символов - размер байта) от двухбайтового символа WideChar берет только один байт.   Не знаю, есть ли в Delphi 7 ф-ция WideCharToString, но если есть, то как вариант: if (WideCharToString(@s[23])[1] in ['a'..'z']) then ---------- У программёра есть два состояния: "Втупляю" и "Попёрло"... Всего записей: 438 | Зарегистр. 08-11-2005 | Отправлено: 20:46 14-05-2010 | Исправлено: psa1974, 20:48 14-05-2010

eddoc Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Frodo_Torbins Цитата: Попробуйте потоку со сплешем приоритет поднять. Возможно основной поток просто сильно нагружает процессор.   увы... Поднял приоритет до критического - тот же результат. Щас попробую поюзать Рощинский WindowThread...   добавлено позже: а компонент С.Рощина ваапче ничего не отрисовывает. Ы-ы-ы-ы ....   Bonivur Как-то понадобилась проверка наличия символов кириллицы в строке (для D2007), пришлось написать свою функцию помятуя о том, что стандартные дельфевые функции не очень жалуют кириллицу.     Может, стоит попробовать сделать свой велосипед? Всего записей: 328 | Зарегистр. 25-11-2007 | Отправлено: 00:25 15-05-2010 | Исправлено: eddoc, 01:11 15-05-2010

YuriyRR Full Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору eddoc Цитата: а не могли бы показать, где в моем коде надо воткнуть эту функцию? Цитата: It is not necessary to call CheckSynchronize in a GUI application ее не обязательно конечно вставлять в чистом виде т.к. она вызывается в цикле обработки сообщений.Но программа то должна в него входить.     while not EndProcFlag do         begin           Beep;//вместо кода отрисовки заставки-сплэша           Sleep(500);         end; В этом цикле такого входа нет, а чтобы появился добавляем в него Application.ProcessMEssages       Добавлено: А вообще я к примеру пишу процедуры которые делают расчеты или обновления и возвращают в ходе этого кол-ва записей или проценты в цикле в селекте считываем из нее возвращаемые записи и выводим прогресбар или еще чего Очень эффективно. Всего записей: 516 | Зарегистр. 07-06-2007 | Отправлено: 04:20 15-05-2010

Bonivur Advanced Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору eddoc Кстати, Ваша функция не находит буквы "Ё" и "ё". Для этого надо проверять также символы 168 и 184. ---------- Что будет стоить тысяча слов когда важна будет крепость руки? (В.Цой) Всего записей: 655 | Зарегистр. 22-06-2003 | Отправлено: 09:02 15-05-2010

eddoc Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Bonivur ОК, подправил   Цитата: происходит "замораживание" подлежащего сплэша и подлежащего окна вот ведь интересно, если написать вот так, то все равно "подлежащее" под скрином окно не перерисовывается  до своего закрытия.     Куда дальше копать - ума не приложу   Всего записей: 328 | Зарегистр. 25-11-2007 | Отправлено: 09:56 15-05-2010 | Исправлено: eddoc, 12:37 15-05-2010

Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Вопросы по Delphi (до версии 2009) - часть 5

ShIvADeSt (19-05-2010 05:14): Продолжаем тут http://forum.ru-board.com/topic.cgi?forum=33&topic=11215

Переход по форумам  Закладки   » Компьютеры Цифровое изображение Программы Microsoft Windows UNIX Другие OS Hardware В помощь сисадмину Прикладное программирование Игры Форумные игры   » Интернет Web-программирование В помощь вебмастеру Графика Хостинг Зацените-ка!   » Тематические Ikonboard v.2 Ikonboard v.3 Invision Board Другие форумы PHP-Nuke и другие порталы Мобила   » Общие Спорт Флейм Темы по региональным встречам Музыка и Кино Юмор Литература и Живопись   » Ru.Board Новости Помощь по форуму   » Андеграунд eBookz Варезник Раздачи и акции Мобильный варезник Андеграунд Игры и фильмы   » Специальные Тестирование