16-03-2009, 07:50 AM
16-03-2009, 11:35 AM
السلام عليكم
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;
16-03-2009, 11:53 AM
شكرا لك اخي الكريم
يوجد خطا في عدم معرفة RandomRange
ماذا استعمال من USES لاستكمال التنفيذ
ولتعريف RandomRange
يوجد خطا في عدم معرفة RandomRange
ماذا استعمال من USES لاستكمال التنفيذ
ولتعريف RandomRange
16-03-2009, 12:52 PM
الوحدة Math