especie de decrip..!!!

Question

Bem pessoALL,A duvida � a seguinte;No formulario eu teria 9 botoes com as primeiras letras do alfabeto..A,B,C,D,..... e dois edit�sao clicar no bot�o �A�  apareceria a letra no 1� edit,j� no 2� edit e...

Beppe · Answer

Fa�a o seguinte:Selecione todos os bot�es(shift+click, ou click+arraste), v� para a aba Events no Object Inspector, e d� dois cliques em OnClick. Coloque este c�digo no m�todo.[code:1:2f17046816]Edit1.Text := TButton(Sender).Caption;Edit2.Text := IntToStr(Ord(TButton(Sender).Caption&#91;1&93;) - Ord(�A�) + 1);[/code:1:2f17046816]...

Junior# · Answer

valeu ataliba, ,..mas tem um porem...nao entendi muito bem...e que sou novato entende..!!!!tem como voce explicar o codigo..[]�sJunior...

Beppe · Answer

No problem...O par�metro [b:9106842bbd]Sender [/b:9106842bbd]� o componento que disparou o evento, no caso, um bot�o. Sender � do tipo TObject, e n�o tem a propriedade Caption, ent�o fa�o uma [b:9106842bbd]typecast[/b:9106842bbd](maneira de afirmar o tipo de tempo de execu��o do objeto, sem realmente verificar se o objeto � deste tipo) para TButton, e pego o Caption deste.[code:1:9106842bbd]Edit1.Text := TButton(Sender).Caption; [/code:1:9106842bbd]Aqui, um pouco de aritm�tica: pego a primeira letra do caption e extrai o valor ordinal(fun��o Ord). Como a letra �A� tem valor ordinal 65, eu subtraio Ord(�A�) e adiciono 1. Ord(�A�) = 65Ord(�B�) = 66Ord(�A�) - Ord(�A�) + 1 = 1Ord(�B�) - Ord(�A�) + 1 = 2Edit2.Text := IntToStr(Ord(TButton(Sender).Caption[1]) - Ord(�A�) + 1);C precisa D + ?, soh chamar :D ....

Junior# · Answer

valeu pela dica, mas agora necessito do seguinte...
quero que ao digitar a letra �A�...depois a letra �B�...ele nao suma
com nenhuma delas, ou seja que fique assim do edit 1..
Edit 1
ABCD....

Edit2
1234...

[]�s
junior

Beppe · Answer

Edit1.Text := Edit1.Text + TButton(Sender).Caption; Edit2.Text := Edit2.Text + IntToStr(Ord(TButton(Sender).Caption[1]) - Ord(�A�) + 1);Ataliba....

Junior# · Answer

Seguinte..como fa�o para colocar valores predefinidos nas letrasa = 4b = 6c = 8e = 1m = 5n = 3o = 9.....Ou seja.. no edit 1 aparecera � abcemn� no           edit 2 aparecera � 468153�[]�sjunior...

Ljr · Answer

Coloque na propriedade tag de cada botao o valor desejado.
Ex.:
Button1.Tag:= 1
Button1.Tag:= 5
Button1.Tag:= 100
...

Depois siga os passos que nosso cologa Ataliba disse, mas altere o codigo da ultima resposta enviada por ele, por esse codigo:

Edit1.Text := Edit1.Text + TButton(Sender).Caption;
Edit2.Text := Edit2.Text + IntToStr(TButton(Sender).Tag);

Junior# · Answer

valeu..vc�s sao de mais.,..[]�sjunior...

Junior# · Answer

PessoAAL,

Tenho as seguintes letras com valores correnpondentes para
cada uma delas, �A� �B� �C�
�6� �2��1�

isso vai se transformar num valor do tipo 12,536,23, mas existe um porem
quando a letra �A� esta no primeiro digito ela tem valor �6�, j� se estiver no 2� digito
ela tem valor �4�, estando no 3� digito tem valor 6 novamente, quando na 4� ela volta a ter valor �4�
ou seja nas
ficaria assim

1 2 3 4 5 - casas
A A A A A - letras
6 4 6 4 6 - decrip

isso vale para todas as outras letras....
por favor, como devo proceder.....

grato

[]�s
junior

Beppe · Answer

crie uma matrix, que dado uma letra e um estado, retorne um valor:

const
MatrizValor: array[�A�..�Z�, Boolean] of Integer = (
6, 4, {letra A}
2, ..., {letra B}
1, ... {letra C}
);

Ex: Letra [i:7b44638b3b]Uma_Letra[/i:7b44638b3b] na posi��o [i:7b44638b3b]Pos[/i:7b44638b3b]: MatrizValor[Uma_Letra, Odd(Pos)];

Ataliba.

Junior# · Answer

n�o entendi muito o exemplo, pode me explicar melhor,....obrigado...desculpe o transtorno..[]�sjunior...

Junior# · Answer

ataliba, ou alguem dop forum da uma for�a ai...[]�junior...

Junior# · Answer

Quero jogar no mesmo edit..

1 2 3 4 6 - casa
A A A A A -button ( tenho que ter somente um bot�o, �A�), que me
6 4 6 4 6 - decrip ( retorne esses valores no edit, mas que seja dessa
forma..

64646
tipo seis mil quatrocentos e sessenta reais..!!

voce entendeu..?

[]�s
junior

Beppe · Answer

Pegue aquela matriz que passei, e cada vez que voc� pressionar o bot�o �A�, e fa�a

Impar := not Impar;
Edit1.Text := Edit1.Text + IntToStr(MatrizValor[�A�, Impar]);

Inicie Impar como False.

Ataliba

Junior# · Answer

Desculpe-memas e justamente aquele matriz que nao entendi muito....sou leigo mesmo...agora juntou essa outra fun��o.....to confuso cara....rspode me dar uam explica��o...olha esse ai e meu emailnaojunior@bol.com.brvaleu a aten��o []�sjunior...

F�rum especie de decrip..!!! #186394