Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 15.01.2010, 12:56
Vl@dimir Vl@dimir вне форума
Прохожий
 
Регистрация: 15.01.2010
Сообщения: 1
Репутация: 10
По умолчанию Здравствуйте помогите пожалуйста, заморочился на ровном месте.

На запущеннном приложении, при открытии формы вылетает ошибка
raised exception class EAccessViolation with message 'Access violation at address 004D62D6 in module 'PolicyMove.exe'. Read of address 00000000'

Это если на запускаемой форме есть код:
Код:
procedure TfrmGRDSAddEdt.FormCreate(Sender: TObject);
begin
  qSeries.Open; <- Ошибка
//  qPolicy.Open;
  if oUnit.IsADD then
  begin
//    ClearFields;
//    DisableControls;
  end;
  if oUnit.IsEDT then
  begin
    fldSeries.KeyValue := oUnit.Series_Id;
    fldNumber.Text     := oUnit.PolicyNum;
  end;
  CreateQuery(qPolicy); 
end;

Сама форма запускаеться следующим образом:
procedure TfrmGRDS.NEdtClick(Sender: TObject);
begin
  if not View.IsEmpty then
  begin
    if not RLock(tnPolicy, View.KeyValue) then Exit;
    oUnit.Id        := View.KeyValue;
    oUnit.Series_Id := View.FieldValues['Series_Id'];
    oUnit.PolicyNum := View.FieldValues['PolicyNum'];
//    Sys.CreateModalForm(TfrmGRDSAddEdt, frmGRDSAddEdt);
    Application.CreateForm(TfrmGRDSAddEdt, frmGRDSAddEdt);
    frmGRDSAddEdt.Visible := False; 
    frmGRDSAddEdt.ShowModal;
  end
  else
  begin
    InfoMes('Нет записей для изменения.');
  end;
end;
Admin: Пользуемся тегами!

ПС. Воспользуйся отладчиком, посмотри значение переменных, место где возникает ошибка и т.п.

Последний раз редактировалось Admin, 15.01.2010 в 12:59.
Ответить с цитированием
  #2  
Старый 15.01.2010, 14:20
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,087
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Ну, скорее всего идет обращение к несозданному объекту. К какому и где конкретно - ответ тебе даст отладчик.
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 18:44.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025