Sayı üretme

[brs]

Selam timer interval için sayı üretmek istiyorum alt daki kodlarla üretiyorum, örnek: 5000, 10000 veya 13000 gibi düz sayıları nasıl üretebilirim.

Kod: Tümünü seç

procedure TForm3.Button6Click(Sender: TObject);
var
  Uret: Real; // Uses Math Ekle
begin
  Uret := RandomRange(30000, 240000); // Sayı Üret
  Caption := FloatToStr(Uret);
end;

[m_ekici]

Kod: Tümünü seç

var
  Uret: Real; // Uses Math Ekle
begin
Randomize;
  Uret := roundto(30000+Random(240000),3); // Sayı Üret
  Caption := FloatToStr(Uret);
end;

[SimaWB]

Kod: Tümünü seç

Uret: Integer;
//...
Uret = 1000 * RandomRange(30, 240);

[brs]

Her iki cevap için teşekkür ederim...