Strings Delphi

  1. Home
  2. Delphi
  3. Strings
  4. 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);