2011-12-11 1 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

기능은 Math 단위입니다. 그 단위를 uses 절에 추가하십시오.

uses 
    System.Math;