Delphiで例外を発生させる方法は？

Question

私はPrism（ネット）ではなくDelphiネイティブを求めています。

これは私のコードです：

raise Exception.Create('some test'); 

Undeclarated idenitifier "例外"。

、どのように私は例外を発生させる/問題投げるんですか？

Answer 1

例外クラス「例外」は、単位sysutilsの中で宣言されています。したがって、uses節に "SysUtils"を追加する必要があります。

uses 
    SysUtils; 

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

Answer 2

あなたはありませんsysutilsのを使用していますか？例外はIIRCに宣言されています。

Answer 3

あなたはそれは一言で言えばデルファイに応じで構築されており、オプションであるされていない、uses節にのsysutilsを追加する必要があります。

Answer 4

使用ユニットにSYSUTILSを追加することを忘れないでください。

私もmessaggesと例外の意味のフォーマット、あなたのカテゴリを追跡する良い方法を提案：

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 

これを使用しての簡単な方法は次のとおりです。今後の参考のために

TMyException.RaiseError1(123);