Pasko
18-Jun-2009, 08:06 AM
Hi!
In my application create Stack overflow exception. My application didn't answer. But I didn't get any message about it. This is code
procedure Tdm.qOnePeopleBeforePost(DataSet: TDataSet);
begin
try
if (DataSet.tag=999)then
DatabaseError('Error in tag.', NIL);
except
on E: EDatabaseError do
with MainForm do
begin
// acPeopleExecute(acOnePeople); - This is place of next call qOnePeopleBeforePost
raise;
end;
end;
end;
What is it? Why I didn't get message about Stack overflow?
In my application create Stack overflow exception. My application didn't answer. But I didn't get any message about it. This is code
procedure Tdm.qOnePeopleBeforePost(DataSet: TDataSet);
begin
try
if (DataSet.tag=999)then
DatabaseError('Error in tag.', NIL);
except
on E: EDatabaseError do
with MainForm do
begin
// acPeopleExecute(acOnePeople); - This is place of next call qOnePeopleBeforePost
raise;
end;
end;
end;
What is it? Why I didn't get message about Stack overflow?