Random!!!!! W delphi

Witam !!!!
Mam pewien problem w programie

procedure button1.click;
begin
a:=random(56) ;
label1.Capition:=inttostr(a);
end;

Zawsze pierwszą wylosowaną liczbą jest 0 drugą 1 trzecią 42 czwartą 9
Chce by losowanie było losowaniem a nie zawsze tymi samymi liczbami
jeśli ktoś zna sposób na rozwiązanie nieinteligentnego random w Delphi Proszę o pomoc;

Zajrzyj na www.ski2004.republika.pl

---

var a : integer;
begin
randomize;
a:=random(56) ;
Caption:=inttostr(a);

//----------------------
Jeśli masz mi coś do zaoferowania to pisz : beldzio(at)gazeta(dot)pl gg :3183960. Jeśli chcesz spytać o coś na GG najpierw się przedstaw.

Dzieki wielkie dzieki!!!!!!! I jeszcze jedno
Jak losować z jakiegos przedziału np 5-56 POzdrówka


var a : integer;
begin
randomize;
a:=random(50) ;
if (a>= 5) and (a <= 50) then
Caption:=inttostr(a);

Trochę prostacki sposób ale jest

//----------------------
Jeśli masz mi coś do zaoferowania to pisz : beldzio(at)gazeta(dot)pl gg :3183960. Jeśli chcesz spytać o coś na GG najpierw się przedstaw.

---

chyba cos takiego:

var a : integer;
begin
randomize;
a:=random(51)+5 ;
Caption:=inttostr(a);

piotroh@o2.pl

cytat:delphowiec napisał:

Dzieki wielkie dzieki!!!!!!! I jeszcze jedno
Jak losować z jakiegos przedziału np 5-56 POzdrówka

W module Math jest funkcja RandomRange.

Przykład:
uses [...], Math; [...] procedure button1.click; var a : integer; begin a := RandomRange(5, 56); label1.Capition:=inttostr(a); end;

WWW: http://members.lycos.co.uk/piotrdz1/|GG 7160912

cytat:piotrek88 napisał:
W module Math jest funkcja RandomRange.

Przykład:
uses [...], Math; [...] procedure button1.click; var a : integer; begin a := RandomRange(5, 56); label1.Capition:=inttostr(a); end;

Ciekawe rozwiązanie :)

Anakin
www.members.lycos.co.uk/anakinos/

zanotowane.pl

doc.pisz.pl

pdf.pisz.pl

zsf.htw.pl