|
Вопрос # 5 936/ вопрос решён / |
|
Приветствую, уважаемые эксперты!
Опишу ситуацию:
Есть форма с 3-мя страничками PageControl. Переключаюсь между ними - на одной страничке у меня происходит запрос к БД через Interbase.
При первых 2-х переключениях - прога работает нормально, а при последующих попаткках открытия данной страницы вылетает ошибка:
---------------------------
Debugger Exception Notification
---------------------------
Project PishetVBasu.exe raised exception class EAccessViolation with message 'Access violation at address 200022D1 in module 'rtl100.bpl'. Read of address 0000000C'.
---------------------------
Break Continue Help
---------------------------
В пошаговом режиме нашел точку, которая вызывает ошибку.
Приложение: Переключить в обычный режим- procedure TTMainForm.PageControl1Change(Sender: TObject);
- begin
-
- begin
- TMainForm.GridView;
- end;
- .....
- ....
- ..
-
- PROCEDURE TTMainForm.GridView;
- VAR
- TT,TmpI, TmpX:Integer;
- NAMEKN:array of String;
-
- BEGIN
- begin
- SSQL:=TStringList.Create;
- SSQL.Clear;
-
-
- SetLength(NAMEKN,KolMasKn+1);
- SSQL.Clear;
- SSQL.Free;
- TMainForm.StringGrid1.RowCount:=KolMasKn+1;
- ...........
- ........
- .....
-
-
- function ExecSQL(strSQL:TStrings):integer;
- begin
- try
- TMainForm.IBQueryDataPW.SQL:=strSQL;
-
- TMainForm.IBQueryDataPW.Open;
- TMainForm.IBQueryDataPW.FetchAll;
- Result:=TMainForm.IBQueryDataPW.RecordCount;
- except
- Result:=-1;
- end;
- end;
-
-
-
 |
Вопрос задал: vitalik32 (статус: Посетитель)
Вопрос отправлен: 7 февраля 2012, 10:14
Состояние вопроса: решён, ответов: 0.
|
Мини-форум вопроса
Всего сообщений: 0.
7 февраля 2012, 11:30: Статус вопроса изменён на решённый (изменил автор вопроса — vitalik32): Вопрос снят - внимательно просмотрел код - нашел баг.
Спасибо за внимание.
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
