Capturar Errores con Try, Finally, End
 

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

Hola GerTorresM.

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.