How to use Random Function using Arrays in C/AL

Comments

• Options

  Tim81 Member Posts: 68

  2005-06-16

  LOL!
  
  Do you work together with Madhan?
  
  Look, i answered here:
  http://www.mibuso.com/forum/viewtopic.php?t=6515

  0
• Options

  jemmy Member Posts: 247

  2005-06-17

  In my minds...
  
  tQuestion is a temporary table...
  

  WHILE tQuestionBank.GET (FORMAT(RANDOM(count)+1)) DO
  BEGIN
        
        // process your record here      
  
        tQuestionBank.DELETE;
        count := count - 1;
  END;
  

  
  Haven't tried the code yet.
  
  HTH,
  
  Jemmy

  0
• Options

  Tim81 Member Posts: 68

  2005-06-17

  jemmy wrote:

  WHILE tQuestionBank.GET (FORMAT(RANDOM(count)+1)) DO
  BEGIN
        
        // process your record here      
  
        tQuestionBank.DELETE;
        count := count - 1;
  END;
  

  Why do you write RANDOM(COUNT)+1? RANDOM returns a number between 1 and the number you entered in the brakes. Sy why do you need the '+1'?

  0
• Options

  jemmy Member Posts: 247

  2005-06-17

  Hi Tim81,
  
  You are correct! Thanks.
  Hmm, I just think this is not an easy case...
  
  Cheers,
  
  Jemmy

  0
• Options

  Tim81 Member Posts: 68

  2005-06-17

  Where is the problem? Your code should work. I made a similar code example in the other thread, linked in my post above. You just have to fill a temporary table with continous IDs, so that the GET is working.

  0
• Options

  jemmy Member Posts: 247

  2005-06-17

  I just wrote the following codes:
  

  QuestionBank.SETCURRENTKEY ("No.");
  QuestionBank.SETFILTER ("No.",'>0');
  count := QuestionBank.COUNT;
  IF QuestionBank.FIND('-') THEN
     REPEAT
        temp.INIT;
        temp := QuestionBank;
        temp.INSERT;
     UNTIL QuestionBank.NEXT = 0;
  
  WHILE temp.GET(FORMAT(RANDOM(count))) DO
  BEGIN
     temp.DELETE;
     count := count - 1;
  END;
  

  
  How do you ensure that all records in the bank are fetched completely? :?:
  Let me know.
  
  Jemmy

  0