Comment lever des exceptions dans Delphi?

Question

Je demande Delphi natif, pas Prism (net).

Ceci est mon code:

raise Exception.Create('some test'); 

Undeclarated idenitifier "Exception".

Où est le problème, comment lancer/lever des exceptions?

Answer 1

La classe d'exception "Exception" est déclarée dans l'unité SysUtils. Vous devez donc ajouter "SysUtils" à votre clause uses.

uses 
    SysUtils; 

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

Answer 2

Vous utilisez SysUtils n'êtes-vous pas? Exception est déclarée là IIRC.

Answer 3

Vous devrez peut-être ajouter sysutils à la clause uses, il n'est pas intégré et est facultatif selon Delphi en un mot.

Answer 4

N'oubliez pas d'ajouter SYSUTILS à vos unités uses.

Je vous propose aussi une belle façon de garder une trace des catégories, des formats de messagges et la signification d'exception:

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 

Une façon simple d'utiliser ce système est:

TMyException.RaiseError1(123);