WALID KREMA
16-03-2009, 07:50 AM
كيف اطبع 200 رقم عشوائي في listbox يحتوي على 6 ارقام فقط دون تكرار في دلفي 5
hanipino
16-03-2009, 11:35 AM
السلام عليكم
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;
procedure TForm1.btn1Click(Sender: TObject);
begin
Add_Nbr(lst1.Items,100000,999999,200);
end;
WALID KREMA
16-03-2009, 11:53 AM
شكرا لك اخي الكريم
يوجد خطا في عدم معرفة RandomRange
ماذا استعمال من USES لاستكمال التنفيذ
ولتعريف RandomRange