| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
WEPIRA
Novato
Registrado: Quarta-Feira, 8 de Dezembro de 2010
Mensagens: 60
|
 Enviada: Sáb Jan 03, 2015 9:55 am Assunto: numero sequencial |
 |
|
bom dia
alguem sabe um codigo para gerar numero sequencia, para aparecer no edit???
exemplo quando clicar no botão aparece o numero 0, depois em outro click, o numero 1 e assim por diante, |
|
| Voltar ao Topo |
|
 |
otavioadcp
Novato
Registrado: Sábado, 6 de Dezembro de 2014
Mensagens: 15
|
| Enviada: Sáb Jan 03, 2015 10:20 am Assunto: |
|
|
você pode tentar fazer isso aqui:
vc cria a label q irá ficará recebendo o novo valor. Por exemplo: '0'
Ai no botão vc coloca o seguinte:
| Código: |
var
index : integer;
begin
label1.caption := inttostr(index);
inc(index); |
a primeira linha, vc ta convertendo o '0' q vc colocou como conteúdo dessa label como 'Inteiro'.
Já na segunda linha, vc vai estar incrementando ela a cada clique. |
|
| Voltar ao Topo |
|
|
WEPIRA
Novato
Registrado: Quarta-Feira, 8 de Dezembro de 2010
Mensagens: 60
|
| Enviada: Sáb Jan 03, 2015 10:33 am Assunto: |
|
|
Nao deu certo, quando clico no botão ele aparece, mas quando clico novamente ele nao muda,
outra solução que vai resolver meu problema, eu tenho uma sequencia de 0 a 9, preciso ao clicar no botão ele sorteia um numero entre este intervalo, isto tabem me ajuda a resolver o meu problema |
|
| Voltar ao Topo |
|
|
otavioadcp
Novato
Registrado: Sábado, 6 de Dezembro de 2014
Mensagens: 15
|
| Enviada: Sáb Jan 03, 2015 10:44 am Assunto: |
|
|
Desculpa, esqueci de mencionar...
vc precisa declarar a variavel de forma global
| Código: |
implementation
var
Index:integer = 1;
|
|
|
| Voltar ao Topo |
|
|
strak2012
Colaborador
Registrado: Segunda-Feira, 13 de Janeiro de 2014
Mensagens: 1518
Localização: Maceió - AL
|
| Enviada: Sáb Jan 03, 2015 12:16 pm Assunto: |
|
|
O delphi ja vem com o botão UpDown que pode ser linkado ao edit que possui duas setas uma para cima e outa para baixo que dependendo de qual seta você clik pode fazer o numero do edit ser incrementado ou decrementado, mas se a questao for algo isolado que você quer pode usar o código a seguir no seu projeto
| Código: | procedure TForm1.Button2Click(Sender: TObject);
begin
Edit1.Text := inttostr(strtointdef(Edit1.Text, -1) + 1); // coloque o nome do seu edit
end; |
Desta forma você dispensa variáveis globais.
Mesmo assim optaria por um botão UpDown.
_________________
Tudo podemos quando tudo sabemos! |
|
| Voltar ao Topo |
|
|
WEPIRA
Novato
Registrado: Quarta-Feira, 8 de Dezembro de 2010
Mensagens: 60
|
| Enviada: Sáb Jan 03, 2015 2:54 pm Assunto: |
|
|
beleza turma obrigado deu certo, agora outro problema quero sortear um numero entre 0 e 9, toda vez que eu clicar no botão ele manda para uma edit o numero sorteado, exemplo clico gera o 2, clico denovo gera o 8 e assim por diante.
Podem me ajudar novamente? |
|
| Voltar ao Topo |
|
|
strak2012
Colaborador
Registrado: Segunda-Feira, 13 de Janeiro de 2014
Mensagens: 1518
Localização: Maceió - AL
|
| Enviada: Sáb Jan 03, 2015 3:02 pm Assunto: |
|
|
| Código: | procedure TForm1.Button3Click(Sender: TObject);
begin
Edit1.Text := inttostr(random(10)); // numero aleatorio de 0 a 9
end; |
_________________
Tudo podemos quando tudo sabemos! |
|
| Voltar ao Topo |
|
|
WEPIRA
Novato
Registrado: Quarta-Feira, 8 de Dezembro de 2010
Mensagens: 60
|
| Enviada: Sáb Jan 03, 2015 3:08 pm Assunto: |
|
|
| valeu mais uma vez deu certo |
|
| Voltar ao Topo |
|
|
strak2012
Colaborador
Registrado: Segunda-Feira, 13 de Janeiro de 2014
Mensagens: 1518
Localização: Maceió - AL
|
| Enviada: Sáb Jan 03, 2015 3:14 pm Assunto: |
|
|
Nada precisando é só postar.
_________________
Tudo podemos quando tudo sabemos! |
|
| Voltar ao Topo |
|
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
