var a:integer;
a=Random(20);
způsobí, že bude platit 0<=a<20. Je možné nějak určit i minimální hodnotu, aby místo nuly byla třeba desítka?
Nevím jestli je na to příkaz, ale co takhle k náhodně vygenerovánemu číslu přičíst dolní hranici. Takže:
var a:integrer;
a=Random(20-10)+10;//min hranice 10, max 20
To Woju:
procedure TForm1.Button1Click(Sender: TObject);
begin
Randomize;
Label1.Caption:= IntToStr(Random(6)+1);
end;
Ano, opravdu chci reagovat → zobrazí formulář pro přidání příspěvku