Sigsegv error at 9c087
lazarus / 16-Databases

----------------------------------------------------------------------
talorigomat · 2017-03-16 12:14

When the review button is clicked (the one under the assig button) and
then the former that is displayed closed I get the sigsegv error.  If
I click any of the other review buttons the error doesn't occur.  All
the buttons call the same procedure to display the same format

I've tracked the error down to the following procedure:

Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i procedure
TfrmGuidance.btnSpecReviewClick(Sender: TObject);var  currAss
:largeint;begin  if dmGuidance.qryReviewSpec.RecordCount <> 0 then   
currAss := dmGuidance.qryReviewSpec.FieldByName('assid').AsInteger; 
OpenReview(dmGuidance.dsrReviewSpec);  if
dmGuidance.qryReviewSpec.RecordCount <> 0 then     
dmGuidance.qryReviewSpec.Locate('assid',currAss,[]);end;
The error occurs when the statement
dmGuidance.qryReviewSpec.Locate('assid',currAss,[]) is executed. 

The database is in firebird 2.5 and I'm using Lazarus 1.6.4

----------------------------------------------------------------------
talorigomat · 2017-03-16 13:00

If a change the procedure so that it displays a message before
executing the locate statement

Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i  
.........  OpenReview(dmGuidance.dsrReviewSpec);  if
dmGuidance.qryReviewSpec.RecordCount <> 0 then  begin   
ShowMessage(IntToStr(CurrAss));   
dmGuidance.qryReviewSpec.Locate('assid',currAss,[]);  end;.....    

then the error doesn't occur.

----------------------------------------------------------------------
talorigomat · 2017-03-16 17:30

Issuing an application.ProcessMessages command be executing the locate
statement seemed to solve the problem.  I'm still interested in
hearing from others as I didn't have this problem in the previous
version of Lazarus.
Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i  ......... 
OpenReview(dmGuidance.dsrReviewSpec);  if
dmGuidance.qryReviewSpec.RecordCount <> 0 then  begin   
application.ProcessMessages;   
dmGuidance.qryReviewSpec.Locate('assid',currAss,[]);  end;.....