Capturar Mensaje de Error

[narvaez.om]

Sí, algo así, lo qeu pasa es que tengo codigo en el except y no puedo manejar bien el on E, por ejemplo, tengo algo así:

try
---
---
except
cn.Connected := true;
cmdsendmail.Parameters.ParamByName'mail').Value := smail;
cmdsendmail.Parameters.ParamByName('texto').Value := stexto;
cmdsendmail.Parameters.ParamByName('asunto').Value := serror;
cmdsendmail.Execute;
cn.Connected := false;
end
Pero no he podido meter el on E y asignar a una variable el e.message, como que no defino bien la estructura. Podrian ayudarme?

[jachguate]

Hola.

Supongo que bastaría con un begin/end:

Código Delphi [-]
try
  sentencias;
except
  on E:Exception do
  Begin
    cn.Connected := true;
    cmdsendmail.Parameters.ParamByName'mail').Value := smail;             
    cmdsendmail.Parameters.ParamByName('texto').Value := stexto;
    cmdsendmail.Parameters.ParamByName('asunto').Value := serror + e.message;
    cmdsendmail.Execute;
    cn.Connected  := false;
  end;

Aprovecho para invitarte a aprender a usar las etiquetas [code], [delphi], [sql] y [php] disponibles en el club para publicar trozos de código. ¿Notas la diferencia?

Hasta luego.

[narvaez.om]

Sí. eso era, muchas gracias, ya voy a poder descubrir el misterio