como fazer sorteio aleatório para batalhas no delphi

21/01/2016

2

[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
Responder

Post mais votado

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.
Responder

Mais Posts

24/01/2016

Jhonny

mano muito obrigado me manda seu whats ou face pra poder tirar umas duvidas
Grato
Responder

24/01/2016

Thiago

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.
Responder

24/01/2016

Jhonny

é 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
Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira