2011-12-11 27 views
2

私はDelphi XE2でrandomrange関数を使用しようとしていますが、何らかの理由でそれを実行しようとすると宣言されていない識別子エラーを与え続けます。RandomRange関数 '宣言されていない識別子'エラー?

var 
    Form3: TForm3; 
    number_of_digits, values, single, doubledig, triple, four, I : nativeint; 

implementation 

{$R *.dfm} 

procedure TForm3.Button1Click(Sender: TObject); 

begin 
    Randomize; 
    number_of_digits := radiogroup1.ItemIndex; 
    single := RandomRange(0, 9); 
    doubledig := RandomRange(10,99); 
    triple := RandomRange(100,999); 
    four := RandomRange(1000,9999); 
    case number_of_digits of 
    0 : values := single; 
    1 : values := doubledig; 
    2 : values := triple; 
    3 : values := four; 
    end; 

私は取得していますエラーが

E2003未定義の識別子である: 'RandomRange'

任意の助けいただければ幸い..ありがとう。

答えて

5

RandomRange機能はMathユニットにあります。あなたのuses句にそのユニットを追加してください。

uses 
    System.Math; 
関連する問題