Mega Code Archive

 

Categories / Delphi / Strings

 

Belli bir uzunlukta rastgele sayi üretimi

function randomNumber(LBound, HBound: Integer):Integer; begin randomize; Result := LBound + random(HBound - LBound + 1); end; //Kullanimi: 3 <= RastgeleSayi <= 20 RastgeleSayi := randomNumber(3, 20);