[Dúvida] Gerador de Frases (Não sei explicar direito)

[BlackLook 6]

Olha só, a minha idéia era a seguinte, eu queria fazer algo do tipo gerador de números aleatórios, só que adicionassem um número a outro, vou explicar melhor....

TIPO ESSE CÓDIGO:

 

var

i:integer;

const

str='VOCÊ GANHOU, VOCÊ NÃO GANHOU'; //AQUI EU QUERIA QUE ELE GERASSE ISSO,UMA PALAVRA INTEIRA ALEATÓRIA

max=16;

begin

Edit1.Text:='';

for i:=1 to max do

begin

Edit1.Text:=Edit1.Text+str[random(length(str))+1];

end;

end;

// E QUE EM OUTRO BUTTON ELE ADICIONASSE OUTRA PALAVRA NO EDIT1 DEPOIS DA PALAVRA GERADA ACIMA (NA ORDEM)

EX: DEPOIS DE ADICIONAR str='VOCÊ GANHOU'; ELE ADICIONE str='UM IPHONE';

 

OU SEJA, 1 BUTTON GERA: VOCÊ GANHOU, E O OUTRO GERA: UM IPHONE

 

PARA NO EDIT 1 FICASSE: VOCÊ GANHOU(OU VOCÊ NÃO GANHOU) UM IPHONE

ENTENDERAM? A FRASE QUE EU UTILIZEI FOI SÓ UM EXEMPLO, É SÓ UMA IDÉIA...

 

 

 

ABRAÇOS, E OBRIGADO

[~EvilCode 93]

Eu quase entendi, mas ficou confuso perto do fim, explique melhor, porque ficou meio que ilógico.

[AceStryker 32]

Também não entendi direito, você já pensou em trocar a constante str para algo variável?Eu editei aqui, de cabeça, faça como fiz.

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

[lTrent 12]

O code do Ace está correto ( pelo menos comigo funcionou )

 

Valeu Ace...

[~OwneR~ 8]

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

Acho que é isso ^^

[BlackLook 6]

Muito Obrigado ~OwneR~

Seu código funcionou! Valeu!

 

Pergunta Respondida...

Muito Obrigado ~OwneR~

Seu código funcionou! Valeu!

=^.^=

PS: Podem dar [x] Closed[/size]