+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : عشوائية المصفوفة (/showthread.php?tid=5360)
عشوائية المصفوفة - rabihpascal - 03-07-2013
السلام عليكم
كيفية اخراج عناصر المصفوفات بطريقة عشوائية.
عشوائية المصفوفة - larva - 03-07-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;