كيف استعمل Random مع نوع خاص بي ؟

[ALmuhhnad]

السلام عليكم ورحمة الله وبركاتة

كلنا نعرف الدالة Random وهي تقوم بإختياار عشوائي للأرقام او الاحرف او الألوان ...إلخ

عندي 10 أسماء كيف اضع قرعة بينهم باستخدام الدالة Random ؟

[محمد عبد العزيز]

وعليكم السلام ورحمة الله

عندي 10 أسماء

اين هي مخزنة ؟
استعمل شيئ مثل

كود :

i:=1+random(10);

ولا تنسى قبلها استدعاء Randomize مرة بحدث ما مثل Oncreate للForm

[ALmuhhnad]

السلام عليكم استاذي B.M.AbdelAziZ
اشكرك فعلا على جهدك الكبير في هذا المنتدى الرائع

بالنسبة لسؤال ... التوجد طريقة اخرى مثلا
اضع نوع متغير من انشائي مثلا بدل Integer اضع MyVar
كيف انشئ مثل هذا المتغير بحيث استعمل عليه الداله random

ايضا لو اردت ان اجعل المستخدم يدخل محتويات المتغير وتعمل عليه الدالة راندوم
واعتذر على عدم التوضيح فقد كنت على عجله

[محمد عبد العزيز]

مثلا بدل Integer اضع MyVar

نعرف مصفوفة بعشرة متغيرات من نوع MyVar

كود :

Var A : array[1..10] of MyVar;

نستدعي مرة واحدة فقط Randomize حتى لا يكون هناك تكرار في اختيار الرقم أول مرة
قرعة واحد من عشرة تكون

كود :

A[1+Random(10)]

مثال، ننشئ نوع جديد

كود :

type TMyVar=Record Name : string[20]; ReleaseDate : TDateTime; end; var MyVar : array[1..4] of TMyVar; i : integer; begin Randomize; MyVar[1].Name := 'Turbo Pascal'; MyVar[2].Name := 'Delphi'; MyVar[3].Name := 'Lazarus'; MyVar[4].Name := 'CodeTyphon'; i := 1+ Random(4); ShowMessage( MyVar[i].Name ) ; end;

ملاحظة: لم استخدم ReleaseDate اختصارا فقط...