GenerateRandom

This function is a custom function used on the Clomosy platform. It is employed to generate a random number between two numerical values. The randomly generated number within the function is inclusive of the first parameter but exclusive of the last parameter.

clMath.GenerateRandom(value1,value2:Integer):Integer

Example:
In the example, when the program is executed, a random number between 10 and 20 will be generated. To guess this number, a numeric input must be entered into the edit component. If the number is guessed correctly, it will display a message "correct guess," and if guessed incorrectly, it will display "wrong guess," revealing the correct number, and the process will end.

Base Syntax

 var
   mainForm:TclForm;
   guessEdt : TclEdit;
   guessBtn : TclButton; 
   NumberOfPredictions : Integer;
 
 procedure guessClick;
 begin
   if guessEdt.Text = '' then
   begin
     ShowMessage('Enter number!')
   end else
   begin
     if StrToInt(guessEdt.Text) = NumberOfPredictions then
     begin
       ShowMessage('The number is correct.');
     end
     else
       ShowMessage('The number is wrong. Correct Number: '+IntToStr(NumberOfPredictions));
   end
 end;
 
 begin
   mainForm := TclForm.Create(Self);
   NumberOfPredictions := clMath.GenerateRandom(10,20);
   
   guessEdt:= mainForm.AddNewEdit(mainForm,'guessEdt','Enter the number you guessed...');
   guessEdt.TextSettings.Font.Size:=70;
   guessEdt.Align := alTop;
   guessEdt.Margins.Top:= 10; 
   guessEdt.Height := 50;
   guessEdt.Width := 150;
   
   guessBtn:= mainForm.AddNewButton(mainForm,'guessBtn','Guess');
   guessBtn.TextSettings.Font.Size:=50;
   guessBtn.Align := alCenter;
   guessBtn.Height := 50;
   guessBtn.Width := 100;
   mainForm.AddNewEvent(guessBtn,tbeOnClick,'guessClick');
   
   mainForm.Run;
 end;

TRObject Syntax

 var
   mainForm:TclForm;
   guessEdt : TclEdit;
   guessBtn : TclButton; 
   NumberOfPredictions : Integer;
 
 void guessClick;
 {
   if(guessEdt.Text == '')
   {
     ShowMessage('Enter number!')
   }else{
     if (StrToInt(guessEdt.Text) == NumberOfPredictions){
       ShowMessage('The number is correct.');
     }else{
       ShowMessage('The number is wrong. Correct Number: '+IntToStr(NumberOfPredictions));
     }
   }
 }
 {
   mainForm = TclForm.Create(Self);
   NumberOfPredictions = clMath.GenerateRandom(10,20);
   
   guessEdt= mainForm.AddNewEdit(mainForm,'guessEdt','Enter the number you guessed...');
   guessEdt.TextSettings.Font.Size=70;
   guessEdt.Align = alTop;
   guessEdt.Margins.Top= 10; 
   guessEdt.Height = 50;
   guessEdt.Width = 150;
   
   guessBtn= mainForm.AddNewButton(mainForm,'guessBtn','Guess');
   guessBtn.TextSettings.Font.Size=50;
   guessBtn.Align = alCenter;
   guessBtn.Height = 50;
   guessBtn.Width = 100;
   mainForm.AddNewEvent(guessBtn,tbeOnClick,'guessClick');
   
   mainForm.Run;
 }