+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف اطبع 200 رقم عشوائي (/showthread.php?tid=697)
كيف اطبع 200 رقم عشوائي - WALID KREMA - 16-03-2009
كيف اطبع 200 رقم عشوائي في listbox يحتوي على 6 ارقام فقط دون تكرار في دلفي 5
كيف اطبع 200 رقم عشوائي - hanipino - 16-03-2009
السلام عليكم
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;
كيف اطبع 200 رقم عشوائي - WALID KREMA - 16-03-2009
شكرا لك اخي الكريم
يوجد خطا في عدم معرفة RandomRange
ماذا استعمال من USES لاستكمال التنفيذ
ولتعريف RandomRange
كيف اطبع 200 رقم عشوائي - hanipino - 16-03-2009
الوحدة Math