| Библиотека программирование, программирование, языки программирования, книги программирование | На сайте представлена информация про программирование в Интернете и работу |
|
Таблица а-ля Object Inspector, Как это сделать? Как узнать насколько загружена сеть Вопрос о D3D, FrameWork Интерфейсный модуль, преобразовать Bitmap image is not valid. Хранение специфических матем. символов в БД Fast Report - Preview, Не показывает в Win9x Нужна помощ, dmPelsWidth:=640; Удалить все файлы из папки Создание Video Rave, Delphi7 Помогите начинающему, Подскажите какую версию выбрать Кто как делфи использует?? SpeeButton AutoFire, как сделать ? Смена Приоритета запущенного процесса :) Общий файл в общей папке локальной сети... Paradox, Временные рез-ты запросов Access и Ado, Запуск exe файла Эта незнакомая IDE!, Небольшой список приёмов порты, узнать статус порта SetFileAttributes SetFileAttributes Движение(не движение) формы как работает net send, а точнее как его написать Как Вы относитесь к курящим девушкам? Сортировка в DBGridEh, по клику на заголовок Как определить время последнего Restart-Shutdown ? Модуль CRT, программирование клавиатуры TreeView iTems Список папок Глюки TMediaPlayer отлов исключительных ситуаций, собственно для всего app Помогите реализовать функцию OneOfItems QReport или я не догоняю..., проблемы с QReport Работа с архивами Как перехватить Scroll Lock, События клавиатуры ole automation com-порт Вирусы... Нажатие кнопки и звук Экспорт шаблона в Crystal Reports Как сделать, чтоб программу можно было запустить, комбинацией WIN+X? Как зарегистрировать свою VXD Узнать время в интернете Как в DBGrid закрасить строку NT: Выключение, перезагрузка... Блокировка флоппи-драйва Размеры и разрешения <<Дописываем код в сущетсвующий exe файл>> keybd_event, слишком любит английский Диалог выбора каталога, на Win API iframes, frames IE, Получить адрес из IE Отправить post данные с помощью TNMHTTP. Запуск файла, по формату ехе, а по расширению фигня Dll не найдена Delphi&Word Глючный BDE Тем кто владеет VB, Вопрос по трансляции кода из Delphi в VB ActionMainMenuBar, с фоном не получается Параметрические запросы Как сделать кнопки в стиле Xp, Подскажите компоненты .... Динамически создаваемые объекты (com-порты) Кто тормозит - я или винда?, работа через COM с внешним устройством CGI и компонент IdICMPClient Генераторы отчетов, Какой в большинстве случаев используете Инсталяторы..., У кого есть InstallShield? Программа для создания HELP-ов., ^^^^^^^^^^^^^^^^^^^^^^^ |
Платные хостинги Раскрутка сайта Книги по программированию Глюки
- Меня уже начинает бесить один глюк. Вот к примеру такой код:Код procedure TDM.IBDataSet1AfterScroll(DataSet: TDataSet);beginif Form1.ActiveImage<>nil then if not DataSet.FieldByName('Picture').IsNull then begin Form1.ActiveImage.Picture.Bitmap.Assign(DataSet.FieldByName('Picture')); (Form1.Components[Form1.ActiveImage.Tag] as TLabel).Visible:=False; end else begin Form1.ActiveImage.Picture:=nil; (Form1.Components[Form1.ActiveImage.Tag] as TLabel).Visible:=True; end;if Form1.ActiveImageAuto<>nil then if not DataSet.FieldByName('LOGO').IsNull then begin case DataSet.FieldByName('LOGO').AsInteger of UOrmetBase.LOGO_NEW:UValues.ChangeSQL(UValues.SQL_NEW,Form1.ibdsLogo2,Form1.dsLogo2,Form1.ActiveImageAuto); UOrmetBase.LOGO_SALE:UValues.ChangeSQL(UValues.SQL_SALE,Form1.ibdsLogo2,Form1.dsLogo2,Form1.ActiveImageAuto); end; end else Form1.ActiveImageAuto.Picture:=nil;//Вот в этом коде вылетает с AccessVioletion////////////////////////////////////////////////if Form1.ActiveImageTitle<>nil then begin if not DataSet.FieldByName('TITPICTURE').IsNull then begin Form1.ActiveImage.Picture.Bitmap.Assign(DataSet.FieldByName('TITPICTURE')); (Form1.Components[Form1.ActiveImage.Tag] as TLabel).Visible:=False end else begin Form1.ActiveImage.Picture:=nil; (Form1.Components[Form1.ActiveImage.Tag] as TLabel).Visible:=True; end; end;/////////////////////////////////////////////////////////////////////////////////////////////////////highlightSyntax('delphigyNjQz','delphi');Помеченый код нормально компилится, но при загрузке прога вылетает с Access Violetion. Причем что я только не далал. И в OnCreate проставлял nil для Form1.ActiveImageTitle и в еще одном важном обработчике (в котором меняется значение, на которое указывает Form1.ActiveImageTitle). Все равно AccessVioletion. Пришлось обходить другим, более громодским путем. Еще подобное я наблюдал, при попытке обращения к обьектам модуля из своих процедур, а если же процедуру сделать "родной" для наследника класса TForm, т.е. , например, поместить в public секцию, то все ОК. Так в чем же дело? Это глюк или я чего то недопонимаю? - Дело упростится, если ты в отладчике узнаешь на какой конкретно строчке вылетает.Вариант: попробовать заключить глючный код в try...except ?И вот че я еще не догоняю:у тебя проверяется в первом условии ActiveImage <> nil и если он = nil, то ничо не делается.Далее в блоке if ActiveImageAuto <> nil тоже с ActiveImage ничо не делается.Т.е. если ActiveImage был = nil, то так и останется равным nil.И далее идет последний блок if ActiveImageTitle <> nil.Дак вот: если ActiveImageTitle = nil, то ты обращаешься ActiveImage, который можеть быть равен nil!Может быть в этом дело ?Попробуй в конце сделай так:Код //Вот в этом коде вылетает с AccessVioletion////////////////////////////////////////////////if Form1.ActiveImageTitle<>nil thenbeginif not DataSet.FieldByName('TITPICTURE').IsNull then begin Form1.ActiveImage.Picture.Bitmap.Assign(DataSet.FieldByName('TITPICTURE')); (Form1.Components[Form1.ActiveImage.Tag] as TLabel).Visible:=False endelse if Form1.ActiveImage <> nil then begin Form1.ActiveImage.Picture:=nil; (Form1.Components[Form1.ActiveImage.Tag] as TLabel).Visible:=True; end;end;/////////////////////////////////////////////////////////////////////////////////////////////////////highlightSyntax('delphiZjY4Zm','delphi'); Это сообщение отредактировал p0s0l - 25.7.2003, 18:29  |