كيف أبرمج برنامج شبيه بالكيجن يولد أرقام

[أحمد 13]

السلام عليكم
كيف أبرمج برنامج شبيه بالكيجن يولد أرقام : بحيث : 5 أرقام الاولى تابثة و 5 الارقام غير تابثة ،، اي النتيجة في edit و تكون ننكون من 10 أرقام
و جزاكم الله خير

[الياس الدويرة]

الكيجن ليس عشوائي بل هو تحليل لعمل دالة حساب .......
هذا مثال لي طريقة بسيطة
edit1.Text:='123456'+inttostr (random(9))+inttostr (random(9))+inttostr (random(9));

[أحمد 13]

حياك الله اخوي و الله يجازيك على كل الخير على المعلومات و بيض الله وجهك

[Houdini]

حل سريع
http://www.delphi4arab.net/forum/showthr...p?tid=9875