Como pegar o C�digo do Erro de um exception?

Question

Quanto executo uma a��o, por exemplo um update e retorna um erro, consigo a mensagem da exception (e.message). Ex: �ORA-0012 .....�E para conseguir o C�digo do erro?Grato....

Beppe · Answer

Se 12 � o c�digo deste erro, seria StrToInt(Copy(E.Message, 5, 4));...

Del · Answer

[b:4235225d5e]Obrigado,Mas gostaria de pegar o c�digo do erro, sem usar Copy().Se der um erro em outro formato, por exemplo �ORA-002� ou �SQL-992399� nao vai funcionar.Se algu�m souber como...Grato.[/b:4235225d5e]...

Beppe · Answer

Com Copy ainda � mais f�cil, se o c�digo come�ar sempre na posi��o 5 da string:

var
  V, E: Integer;
begin
  Val(Copy(Edit1.Text, 5, MaxInt), V, E);
  Caption := IntToStr(V);
end;

Del · Answer

P�xa, valeu mesmo a inten��o.Mas acho que me expressei mal.Existe alguma forma de tratar a Exception para retornar um erro, seja ele do oracle, windows, sql....?Existe E.Message. (E: Exception) Gostaria de saber se h� alguma coisa do tipo E.Number (como h� no vb).Muit�ssimo obrigado....

Beppe · Answer

O Delphi n�o exige que cada exce��o tenha um n�mero. O Windows passa um, e este � poss�vel obter, com (E as EWin32Error).ErrorCode, desde que a exce��o seja uma exce��o do Windows. No caso de DBs, acho que s� da maneira como j� havia respondido.

F�rum Como pegar o C�digo do Erro de um exception? #287287