![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
|
На запущеннном приложении, при открытии формы вылетает ошибка
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, 15.01.2010 в 12:59. |