como fazer sorteio aleatório para batalhas no delphi
[img:descricao=tabela]http://arquivo.devmedia.com.br/forum/imagem/469138-20160121-182504.jpg[/img]Galera preciso urgentemente de ajuda faz muito tempo que eu não tenho contato com o delphi e com essa nova verção piorou tudo preciso de ajuda pra criar um sorft simples que seja pra por em ordem os nomes dos competidores basicamente como na imagem ou pode ser uma list box por tanto que fiquem aleatoria as batalhas por favor me ajudem se quiserem me manda o projeto eu agradeço ou chama no whats 7581280112
Jhonny
Curtidas 0
Melhor post
Thiago
24/01/2016
procedure TForm3.Button31Click(Sender: TObject);
const
N = 9;
var
I, L, M: Integer;
Num: array[0..N - 1] of Integer;
begin
// GERAR NUMEROS ALEATORIOS SEM REPETIÇÃO
Memo3.Clear;
for I := 0 to N - 1 do
Num[I] := I;
for I := N - 1 downto 1 do
begin
M := Random(I + 1);
while M = 0 do // EXCLUIR O ZERO
M := Random(I + 1);
L := Num[I];
Num[I] := Num[M];
Num[M] := L;
while num[i] = 8 do
num[i] := 0;
memo3.Lines.Append(inttostr(Num[i]));
end;
end;
procedure TForm3.Button32Click(Sender: TObject);
begin
button31.Click;
button31.Click;
button1.Caption := memo1.Lines[strtoint(memo3.Lines[0])];
button2.Caption := memo1.Lines[strtoint(memo3.Lines[1])];
button3.Caption := memo1.Lines[strtoint(memo3.Lines[2])];
button4.Caption := memo1.Lines[strtoint(memo3.Lines[3])];
button5.Caption := memo1.Lines[strtoint(memo3.Lines[4])];
button6.Caption := memo1.Lines[strtoint(memo3.Lines[5])];
button7.Caption := memo1.Lines[strtoint(memo3.Lines[6])];
button8.Caption := memo1.Lines[strtoint(memo3.Lines[7])];
end;
procedure TForm3.Button33Click(Sender: TObject);
begin
button31.Click;
button31.Click;
button16.Caption := memo2.Lines[strtoint(memo3.Lines[0])];
button17.Caption := memo2.Lines[strtoint(memo3.Lines[1])];
button18.Caption := memo2.Lines[strtoint(memo3.Lines[2])];
button19.Caption := memo2.Lines[strtoint(memo3.Lines[3])];
button20.Caption := memo2.Lines[strtoint(memo3.Lines[4])];
button21.Caption := memo2.Lines[strtoint(memo3.Lines[5])];
button22.Caption := memo2.Lines[strtoint(memo3.Lines[6])];
button23.Caption := memo2.Lines[strtoint(memo3.Lines[7])];
end;
Explicação : Dentro do memo3 vão ser jogados números alternados em varias linhas, sem repetir os números
dentro do memo1 e memo2 é onde vc digita 16 nomes de players sendo 8 no memo1 e 8 no memo2
dentro do espaço para cada player eu criei um button que recebe o nome da pessoa de forma sorteada.
Ae vai da sua criatividade criar por ex PdAtk pdDef Hp .... para cada button, espero ter ajudado abraços.
Obs: a função eu n desenvolvi eu encontrei na internet, os créditos não são meus.
const
N = 9;
var
I, L, M: Integer;
Num: array[0..N - 1] of Integer;
begin
// GERAR NUMEROS ALEATORIOS SEM REPETIÇÃO
Memo3.Clear;
for I := 0 to N - 1 do
Num[I] := I;
for I := N - 1 downto 1 do
begin
M := Random(I + 1);
while M = 0 do // EXCLUIR O ZERO
M := Random(I + 1);
L := Num[I];
Num[I] := Num[M];
Num[M] := L;
while num[i] = 8 do
num[i] := 0;
memo3.Lines.Append(inttostr(Num[i]));
end;
end;
procedure TForm3.Button32Click(Sender: TObject);
begin
button31.Click;
button31.Click;
button1.Caption := memo1.Lines[strtoint(memo3.Lines[0])];
button2.Caption := memo1.Lines[strtoint(memo3.Lines[1])];
button3.Caption := memo1.Lines[strtoint(memo3.Lines[2])];
button4.Caption := memo1.Lines[strtoint(memo3.Lines[3])];
button5.Caption := memo1.Lines[strtoint(memo3.Lines[4])];
button6.Caption := memo1.Lines[strtoint(memo3.Lines[5])];
button7.Caption := memo1.Lines[strtoint(memo3.Lines[6])];
button8.Caption := memo1.Lines[strtoint(memo3.Lines[7])];
end;
procedure TForm3.Button33Click(Sender: TObject);
begin
button31.Click;
button31.Click;
button16.Caption := memo2.Lines[strtoint(memo3.Lines[0])];
button17.Caption := memo2.Lines[strtoint(memo3.Lines[1])];
button18.Caption := memo2.Lines[strtoint(memo3.Lines[2])];
button19.Caption := memo2.Lines[strtoint(memo3.Lines[3])];
button20.Caption := memo2.Lines[strtoint(memo3.Lines[4])];
button21.Caption := memo2.Lines[strtoint(memo3.Lines[5])];
button22.Caption := memo2.Lines[strtoint(memo3.Lines[6])];
button23.Caption := memo2.Lines[strtoint(memo3.Lines[7])];
end;
Explicação : Dentro do memo3 vão ser jogados números alternados em varias linhas, sem repetir os números
dentro do memo1 e memo2 é onde vc digita 16 nomes de players sendo 8 no memo1 e 8 no memo2
dentro do espaço para cada player eu criei um button que recebe o nome da pessoa de forma sorteada.
Ae vai da sua criatividade criar por ex PdAtk pdDef Hp .... para cada button, espero ter ajudado abraços.
Obs: a função eu n desenvolvi eu encontrei na internet, os créditos não são meus.
GOSTEI 1
Mais Respostas
Jhonny
21/01/2016
mano muito obrigado me manda seu whats ou face pra poder tirar umas duvidas
Grato
Grato
GOSTEI 0
Thiago
21/01/2016
Pode tirar as duvidas por aqui mesmo é bom para todos pois assim quando suas dúvidas acabarem sempre fica no fórum um dia alguém pode precisar do mesmo conteúdo.
GOSTEI 0
Jhonny
21/01/2016
é que eu não to conseguindo organizar os codigos cada um em seu lugar to todo perdido no novo delphi tem como me ajudar pelo teamviewer e eu grava enquanto estiver me ajudando e posto o video no forum
GOSTEI 0