Delphi’ de rastgele sayı üretmek son derece kolaydır. Bu işlem için tanımlanmış olan Random fonksiyonunu kullanabilirsiniz.





Random;



Random fonksiyonu parametresiz kullanılırsa 0-1 arasında rastgele ondalıklı sayı üretecektir.





Procedure TForm1.Button1Click(Sender; Object);

var

Sayi : Real;

begin

Sayi := Random; // 0-1 arasında ondalıklı sayı üret

Caption := FloatToStr(Sayi);

end;



Yukarıda ki şekilde üreteceğiniz sayıları kullanmanız pek faydalı olmayacaktır. Bu yüzden parametre değeri girilerek istenilen aralıklarda sayı üretmek mümkün olmaktadır.



Random(50);



Satırı sayesinde 0-49 arasında değer üretebilir.



Procedure TForm1.Button1Click(Sender; Object);

var

Sayi : Real;

begin

Sayi := Random(50); // 0-49 arasında ondalıklı sayı üret

Caption := FloatToStr(Sayi);

end;



Aşağıdaki gibi bir kod satırıyla da istenilen aralıkta rastgele sayı üretmeniz mümkün olacaktır.



Sayi := Random(50)+75; // 75 – 124 arasında sayı üret



Burada girilen ikinci sayı alt sınırı , ikisinin toplamı da üst sınırı belirleyecektir.



Procedure TForm1.Button1Click(Sender; Object);

var

Sayi : Real;

begin

Sayi := Random(50)+75; // 50-124 arasında ondalıklı sayı üret

Caption := FloatToStr(Sayi);

end;



Rastgele sayı üretim fonksiyonlarında kullanılan diğer bir fonksiyonda Randomizedir. Bu fonksiyon üretilecek olan sayıların aynı periyotta oluşmasını engelleyecektir.



Procedure TForm1.Button1Click(Sender; Object);

var

Sayi : Real;

begin

Randomize; // Saate göre sayı üret

Sayi := Ramdom(50)+75; // 75-124 arasında sayı üret

Caption := FloatToStr(Sayi);

end;



Artık programınızı her çalıştırdığınız zaman değişik sayılar üretmeniz mümkün olacaktır.









RandomFrom(Dizi);



Parametre ile belirtilen dizi elemanlarından rastgele bir tanesinin değerini döndürmek için kullanılan bir fonksiyondur. Dizi eleman değerleri dışında başka bir değerin döndürülmesi söz konusu değildir.



Procedure TForm1.Button1Click(Sender; Object);

var

x : Array[0..4] of Integer;

Sonuc : Integer;

begin

x[0] := 100;

x[1] := 200;

x[2] := 300;

x[3] := 400;

x[4] := 500;

Sonuc := RandomFrom(x); // Dizi elemanlarından seç

Caption := FloatToStr(Sayi);

end;



Yukarıdaki örneği inceleyecek olursanız; x dizi değişkeninin {100, 200, 300, 400, 500} olmak üzere 5 adet elemanı bulunmaktadır. Her defasında bu elemanlardan bir tanesinin değerini döndürecektir.









RandomRange(Sayı1 , Sayı2);



Parametre ile belirtilen iki tam sayı arasında rastgele tam sayı üretmek için kullanılan bir fonksiyondur. Üretilen sayılar arasında üst sınır yoktur.



Procedure TForm1.Button1Click(Sender; Object);

var

Sonuc : Integer;

begin

Sonuc := RandomRange(10, 100); // 10-99 arasında rastgele tamsayı üret

Caption := FloatToStr(Sonuc);

end;



Parametre olarak belirtilen sayıların hangisinin büyük olacağı fonksiyon için önem arz etmemektedir.