İlk Öncelikle merhaba ilk makalemi yazıyorum yani tecrübesizlikten bir hata yaptıysam kusura bakmayın.

Delphide rasgele sayı üretmek çok kolaydır. bunun için zaten tanımlanmış bazı fonksiyonlar vardır.
bunlar:

• Random
• Randomize
• RandomRange
• RandomFrom

1- Random
Bu fonksiyonla belirlenen belirlenen iki sayı arası üretim yapılabilir. eğer parametresiz kullanılırsa 0-1 arasında ondalık sayılar üretir.
Örneğin;

bu fonksiyon pek işe yaramayacaktır.parametre girilirse istenilen iki sayı arası üretim yapar.
şu kodla üretilecektir:

bu kodla ise 0-9 arasında sayı üretebilirsiniz.

bide şunu deneyin buda işinize yarayacaktır.


2-Randomize
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.


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

3-RandomRange
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

RR : Integer;
begin
RR := RandomRange(10, 100); // 10-99 arasında rastgele tamsayı üret
Caption := FloatToStr(RR);
end;

4- RandomFrom
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.



Yukarıdaki örneği inceleyecek olursanız; Rd dizi değişkeninin {20, 40, 60, 80, 100} olmak üzere 5 adet elemanı bulunmaktadır. Her defasında bu elemanlardan bir tanesinin değerini döndürecektir.

umarım faydalı olmuşumdur...