كيف اطبع 200 رقم عشوائي

[WALID KREMA]

كيف اطبع 200 رقم عشوائي في listbox يحتوي على 6 ارقام فقط دون تكرار في دلفي 5

[hanipino]

السلام عليكم

PHP كود :

procedure Add_Nbr(S : TStrings; X,Y,MaxCount : LongInt);
var
 I : LongInt;
begin
  repeat
   Randomize;
   I := RandomRange(X,Y);
   if S.IndexOf(IntToStr(I)) < 0 then
    S.Add(IntToStr(I))
   else;
  until (S.Count-1 = MaxCount);
end; 


PHP كود :

procedure TForm1.btn1Click(Sender: TObject);
begin
  Add_Nbr(lst1.Items,100000,999999,200);
end; 


[WALID KREMA]

شكرا لك اخي الكريم
يوجد خطا في عدم معرفة RandomRange
ماذا استعمال من USES لاستكمال التنفيذ
ولتعريف RandomRange

[hanipino]

الوحدة Math