عشوائية المصفوفة

[rabihpascal]

السلام عليكم

كيفية اخراج عناصر المصفوفات بطريقة عشوائية.

[larva]

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

اليك احد الحلول الممكنة على الطائر.

كود :

implementation uses math;

كود :

procedure TForm1.Button1Click(Sender: TObject); const arrayValues: array[0..9] of string = ( 'hello', 'hi', 'good', 'no', 'try', 'except', 'else', 'if', 'work', 'yes'); var randomValue: byte; begin Randomize; randomValue := RandomRange(0, 9); // Uses Math; unit ShowMessage(IntToStr(randomValue) + ' : ' + arrayValues[randomValue]); end;