دخول

***محمد عبد العزيز*** · 03-11-2012, 12:56 PM

إقتباس : مثلا بدل 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 اختصارا فقط...

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة