Capturar Errores con Try, Finally, End

[GerTorresM]

Hola a tod@s:


la duda que me asalta el día de hoy es la siguiente como poder capturar un error:

en orden de ideas la respuesta es con Try, Except y End, desde código este sería un ejemplo

Código Delphi [-]
try
  instrucción
except on exception_local : Exception do    
  tratamiento al del error capturado // para el caso el mensaje de error generado Showmessage(exception_local.Message);
end;

Pero la pregunta ahora es ¿Como poder capturar el error utilizando las sentencias Try, Finally, End?. Ya que para el efecto pienso en hacerlo mediante creación de objetos.

Código Delphi [-]
Try
 Creo el objeto
 establezco sus propiedades
 realizo los metodos necesarios
Finally
  En caso de error trato el error
  objeto.Free
End

Agradezco de antemano sus comentarios.



gertorresm
Colombia

[ecfisa]

Hola GerTorresM.

¿Como poder capturar el error utilizando las sentencias Try, Finally, End?.

No se puede. Para capturar los errores tenés que usar try/except.

Pero podés tratarlo así:

Código Delphi [-]
 // pedir_recurso
  try 
    try
   //   usar_recurso
    except
   //   tratar_error
   end
   finally
    // devolver_recurso
   end

Un ejemplo:

Código Delphi [-]
var
  sl: TStrings;
begin
  sl:= TStringList.Create;
  try
    try
      sl.LoadFromFile('c:\Archivo.txt');
      ShowMessage(sl[0]);
    except
      ShowMessage('No se puede acceder al archivo.');
    end;
  finally
    sl.Free;
  end;
...

Un saludo.