¿Cómo plantear excepciones en Delphi?

Question

Estoy pidiendo Delphi nativo, no Prisma (neto).

Este es mi código:

raise Exception.Create('some test'); 

idenitifier Undeclarated "excepción".

¿Cuál es el problema, cómo puedo lanzar/levantar excepciones?

Answer 1

La clase de excepción "Excepción" se declara en la unidad SysUtils. Por lo tanto, debe agregar "SysUtils" a su cláusula uses.

uses 
    SysUtils; 

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

Answer 2

Usted está usando SysUtils ¿no es así? La excepción se declara allí IIRC.

Answer 3

Es posible que deba agregar sysutils a la cláusula uses, no está incorporado y es opcional de acuerdo con Delphi en pocas palabras.

Answer 4

Recuerde agregar SYSUTILS a sus unidades de usos.

También se sugieren una buena manera de mantener un registro de las categorías, formatos de MENSAJES y significado de 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 sencilla de utilizar esto es:

TMyException.RaiseError1(123);