Capturando excepciones en un archivo de texto

[noob]

Hola, tengo este código pero no me funciona correctamente porque mi aplicación se cierra en vez de saltar la excepción.

Código Delphi [-]
  try
    System.Assign(archivo, 'archivo.txt');
    System.Reset(archivo);
    try
      while not EOF(archivo) do
        System.Readln(archivo, Texto);
    finally
      System.Close(archivo);
    end;
  except
    On E: eFicheroNoExiste do
      ShowMessage(E.Message);
  end;

¿Hay algo mal?

Saludos.

[[cHackAll]]

Código Delphi [-]
 AssignFile(archivo, 'archivo.txt');
 {$i-}Reset(archivo);{$i+}
 if IoResult = 0 then
  begin
   while not EOF(archivo) do
    Readln(archivo, Texto);
   CloseFile(archivo);
  end;

[noob]

Ya, pero quiero hacerlo mediante excepciones.

Saludos.

[roman]

¿Qué es eso de eFicheroNoExiste? La excepción que va a saltar si no existe el archivo es EInOutError.

// Saludos

[noob]

Esto es mi unidad uFicheroNoExiste.

Código Delphi [-]
unit uFicheroNoExiste;
 
interface
 
uses
  SysUtils;
 
type
  eFicheroNoExiste = class (Exception)
                         public
                           constructor Create;
                         end;
implementation
 
constructor eFicheroNoExiste.Create;
begin
  inherited Create('El fichero no existe');
end;
 
end.

[Neftali [Germán.Estévez]]

Empezado por noob

¿Hay algo mal?

Yo al iguial que Román creo que el error anda en torno a la captura de excepción (su tipo).
Tú has creado un tipo nuevo, pero eso no significa que Delphi vaya a generar los errores de entrada salida con tu tipo.

Captura el error de IO y en ese punto si te interesa levantas la tuya.
También capturaría otros tipos de errores, al menos en este caso te servirá para saber qué está pasando.

Algo así:

Código Delphi [-]
try
...
except
  on: E: EInOutError do begin
    // O muestras el mensaje
    ShowMessage(Format('Se ha producido un eror de entrada/salida. Mensaje de sistema: %s',[E.Message]));
    // 0 levantas la tuya
    raise eFicheroNoExiste.Create();
  end
  else begin
    ShowMessage(Format('Error desconocido. Clase(%s), Mensaje: %s',[E.ClassName, E.Message]));
  end;
end;

Un saludo