🚀 go-pugleaf

Hi all
When using the event method for OnPostError, example below.  Note: I have
customised the default name to mine so it can be generalised so I can use it
for a few datasets.

void __fastcall TDMLab::PostErrorMgr(TDataSet *DataSet, EDatabaseError *E,
TDataAction &Action)
{
  // My code to handle the error thrown.
  // I want to use a case statement of ErrorCodes
}

The problem I am having is that  exception " EDatabaseError *E  " supplied
when choosing this event does not provide the ADO error number.  The message
is supplies is OK but I am after a way to trap for the error numbers .  I
think there is a EOleSysError Message and ErrorCode properties that supply
this information but I can not find a way to get this data using what is
supplied ie EDatabaseError.  Is there a way to cast to another object type
to get this information???

How do other people handle this problem using VCL ADO components????

Look any direction / information would be good...

Thanks
Daryl