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

[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;