How to recognize specific exception in Delphi

Question

Most of the time I'm relying on the ClassName and the Message of the exception to decide what to do in case of an error:

      AddDebugMessage('GetExcelValues: Exception '+e.ClassName+' with message '+e.Message+' while getting values from sheet '+TaskRecs[TaskNr].SheetName,Error)

But now I'm working with Excel OLE and Exception messages seem to have been translated (into Dutch in my case). So looking at the Exception message seems to be out of the question.

Is there a better way to find out what exception is being raised?

Answer 1

Many exception classes have more members to help describe the error. For Excel (or other OLE handling), you can get the error code like this:

try
    // Excel handling removed 
except
    on E: EOleException do begin
        Memo1.Lines.Add(E.Message);
        Memo1.Lines.Add('Error code 0x' + IntToHex(E.ErrorCode, 8));
        Exit;
    end;
end;