طبعاَ كل السوريين يعرفون برنامج (غداَ نلتقي) و للدخول في الموضوع
كلكم شاهدتم المهندس الذي يقوم بالسحب العشوائي لرقم موبايل من بين
الأرقام المدخلة في الدايتابيس و قد توصلت إلى طريقة للقيام بالسحب العشوائي
وأرى أنها قد تكون مفيدة لكل من يريد أن يدخلها في برامجه ........

procedure TForm1.FormCreate(Sender: TObject); 
begin 
  Randomize; 
end; 

procedure TForm1.RandomSelector; 
begin 
  Table1.First; 
  Table1.MoveBy(Random(Table1.Recordcount)); 
end; 

------------------------------------------------------------------------

أهلاً،
بالرغم من أني لا أعرف كيف أكتب كود لهذه اللغة إلا أنني أعتقد أني أعرف قراءة ما كتبه الآخرون!
كما فهمت من هذا الكود أنك استعملت الـ Function المسماة Random و هي -كما هو واضح من الكود- من الـ Keywords الأساسية الخاصة باللغة.

شكراً لمشاركاتك معنا.
Moayad Mardini
MSDN Forums Moderator