Capturar Errores con Try, Finally, End

[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.