Tutorial Sorteando Numeros Aleatorios

[L3ND4URB4N4']

Adicione um Tbutton(palheta standart) e um Tedit(palheta standart)

De dois click sobre o Tbutton e adicione:


Var
a: array[0..5] of integer;
i: Integer;
begin
for i:= 0 to 5 do //exemplo de como usar variavel
begin
a[i]:= random(50) ;// o maximo para ser sorteado

Edit1.Text:= FloatToStr (random(50));

end;


Onde está 50 é o máximo de números para sortear,no caso até 50 !

[scorpblack]

o que e isto mesmo?? parece pascal mas se for não corre lolol