gdeon

uhaaa!! :) era isso mesmo colega muito obrigado valeu mesmo

isso mesmo ,mas somente a quantidade (tire o 25 e fica somente 1 , ...2, ...3)

por exemplo eu clico no botão ele gerar um numero aleatorio com 2 digitos, quando ele gerar por exemplo o numero 25 ele adiciona no editx.tex o valor 1 e toda vez que ele (25) novamente o contador modifica o contado espero que isso sirva

Ola galera essa e a minha primeira vez aqui no forum!! bem , estou criando um aplicativo que ao clikar no button ele gera numeros aleatorios , que ao sorteiar um certo numero ele adicionara em uma editX.text quantas vezes ele foi gerado e que toda vez que ele aparece aumenta a quantidade de vezes que ele aparece. agora não estou conseguindo continuar com meu progeto se voces poderem me ajudo agradeço deste já esse e o codigo que estou ultilizando procedure TForm1.Button1Click(Sender: TObject); var i :Integer; const str = '2345'; max = 2; begin Edit1.Text:=''; for i:= 1 to max do Edit1.Text:=Edit1.Text+str[random(length(str))+1]; begin if (edit1.text = '34') or (edit1.text = '54') then showmessage('voce adiquiriu um iten 1'); if edit1.text = '43' then showmessage('voce adiquiriu um iten 2'); end; end; end.