+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف استعمل Random مع نوع خاص بي ؟ (/showthread.php?tid=4691)
كيف استعمل Random مع نوع خاص بي ؟ - ALmuhhnad - 02-11-2012
السلام عليكم ورحمة الله وبركاتة
كلنا نعرف الدالة Random وهي تقوم بإختياار عشوائي للأرقام او الاحرف او الألوان ...إلخ
عندي 10 أسماء كيف اضع قرعة بينهم باستخدام الدالة Random ؟
كيف استعمل Random مع نوع خاص بي ؟ - محمد عبد العزيز - 02-11-2012
وعليكم السلام ورحمة الله
إقتباس :عندي 10 أسماءاين هي مخزنة ؟
استعمل شيئ مثل
كود :
i:=1+random(10);كيف استعمل Random مع نوع خاص بي ؟ - ALmuhhnad - 03-11-2012
السلام عليكم استاذي B.M.AbdelAziZ
اشكرك فعلا على جهدك الكبير في هذا المنتدى الرائع
بالنسبة لسؤال ... التوجد طريقة اخرى مثلا
اضع نوع متغير من انشائي مثلا بدل Integer اضع MyVar
كيف انشئ مثل هذا المتغير بحيث استعمل عليه الداله random
ايضا لو اردت ان اجعل المستخدم يدخل محتويات المتغير وتعمل عليه الدالة راندوم
واعتذر على عدم التوضيح فقد كنت على عجله
كيف استعمل Random مع نوع خاص بي ؟ - محمد عبد العزيز - 03-11-2012
إقتباس : مثلا بدل Integer اضع MyVarنعرف مصفوفة بعشرة متغيرات من نوع MyVar
كود :
Var
A : array[1..10] of MyVar;قرعة واحد من عشرة تكون
كود :
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;