المشاركات : 131
المواضيع 73
:
: 0
الإنتساب : Feb 2012
السلام عليكم
كيفية اخراج عناصر المصفوفات بطريقة عشوائية.
المشاركات : 6
المواضيع 0
:
: 0
الإنتساب : Apr 2013
و عليكم السلام و رحمة الله
اليك احد الحلول الممكنة على الطائر.
كود :
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;