Konuyu Paylaş : facebook gplus twitter

Konuyu Oyla:
  • Derecelendirme: 3/5 - 1 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Rastgele id no
#1
Selam,  databaseden minumum 5 adet seçili olan kayıtların id numaralarını stringliste alıyorum.
Alınan bu id numaraların içinden rastgele işlem yaptırmak istiyorum stringliste alınan bu id numaraları aşağıdaki array komutu veya faklı bir yöntemle rastgele nasıl alabilirim.



procedure TForm1.SayiUret(Sender: TObject); 
const
  Sureler: array [0 .. 6] of Integer = (30, 40, 50, 60, 70, 80, 90);
var
  Sure: Integer;
begin
  Sure := Sureler[RandomRange(0, 5)];
  Caption := IntToStr(Sure);
end;
Cevapla
#2
Amaç TStringList içinden rastgele içerik seçmek ise;
// SL: TStringList
SL.Strings[RandomRange(0, SL.Count)];
There's no place like 127.0.0.1
WWW
Cevapla
#3
(26-02-2018, Saat: 13:33)SimaWB Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye OlAmaç TStringList içinden rastgele içerik seçmek ise;
// SL: TStringList
SL.Strings[RandomRange(0, SL.Count)];

SimaWB hocam
( SL.count - 1 ) dememiz daha doğru olmazmı
Bu dünyada kendine sakladığın bilgi ahirette işine yaramaz. 
Cevapla
#4
Sıkıntı yok, zaten

RandomRange( 1, 10 ) bize ( 1..9 ) aralığını verir.
Random( 10 ) olsaydı ( 0..9 ) aralığını verir. Şöyle de yapılabilir
Random( 9 ) + 1  

RandomRange kullanmayı ben de seviyorum çünkü negatif sayılarda da işe yarıyor.
RandomRange( -5, 5 ) bize ( -5 .. +4 ) aralığını verir.
Saygılarımla
Muharrem ARMAN

guplouajuixjzfm15eqb.gif


Cevapla
#5
Bilgi için teşekkürler mrmarman hocam
Bu dünyada kendine sakladığın bilgi ahirette işine yaramaz. 
Cevapla
#6
Teşekkür ederim puanlar verildi Smile
Cevapla

Konuyu Paylaş : facebook gplus twitter



Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Rastgele sayıda bozulma [Çözüldü] dilo 4 469 22-06-2017, Saat: 12:04
Son Yorum: dilo



Konuyu Okuyanlar: 1 Ziyaretçi