03-07-2013, 09:26 AM
03-07-2013, 11:01 AM
و عليكم السلام و رحمة الله
اليك احد الحلول الممكنة على الطائر.
اليك احد الحلول الممكنة على الطائر.
كود :
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;