¿Cómo generar excepciones en Delphi?

Verificamos completamente cada artículos en nuestra web con el objetivo de mostrarte en todo momento la información veraz y certera.

Solución:

La clase de excepción “Exception” se declara en la unidad SysUtils. Por lo tanto, debe agregar “SysUtils” a su cláusula de uso.

uses
  SysUtils;

procedure RaiseMyException;
begin
  raise Exception.Create('Hallo World!');
end;

Recuerda agregar SysUtils para usted uses unidades.

También sugiero a continuación una buena manera de realizar un seguimiento de las categorías, los formatos de los mensajes y el significado de la excepción:

Type TMyException=class
public
  class procedure RaiseError1(param:integer);
  class procedure RaiseError2(param1,param2:integer);
  class procedure RaiseError3(param:string);
end;

implementation

class procedure TMyException.RaiseError1(param:integer);
begin
  raise Exception.create(format('This is an exception with param %d',[param]));
end;

//declare here other RaiseErrorX

Una forma simple de usar esto es:

TMyException.RaiseError1(123);

Es posible que deba agregar sysutils a la cláusula de usos, no está integrado y es opcional según Delphi en pocas palabras.

Sección de Reseñas y Valoraciones

---

---

Utiliza Nuestro Buscador