Randomico
10/04/2003
0
usei assim
for i:= 0 to 40 do
edit1.text := IntToStr(Random(i));
end;
só q embaralha tudo
By Alemão
Posts
10/04/2003
By Alemão
as cartas q os jogadores vao receber só podem estar entre 1 e 40, mas naum podem repetir....... sendo que essas cartas tem q ser randomicas..... não pode ter uma sequencia.....
E agora?
10/04/2003
Brunoroot
edit1.text:=inttostr(Random(40));
naum sei se ajudei, mas qualquer coisa....
10/04/2003
Brunoroot
pq vc naum cria um vetor com 40 posições, e adiciona sequencialmente as cartas no vetor.
Crie um indice para apontar para o topo do baralho, para vc controlar as cartas que ainda est ao no baralho.
depois faça uma rotina para embaralhar este vetor.
eu tenho umas rotinas muito parecidas com essas, só q naum estou em casa, mas se quiser eu te mando.
ah!, naum entendi os 13 edits!!!
falô!
10/04/2003
By Alemão
é q eu ia controlar as cartas q cada um tem no edit.....
tres edit´s para cada jogador.....
tipo no primeiro edit eu jogo o primeiro valor randomico.... no segundo outro valor randomico sendo q o primeiro naum pode ter....
e agora?
Clique aqui para fazer login e interagir na Comunidade :)