Fórum Rodízio de caracteres #281500

13/05/2005

0

Olá pessoal,

Minha dúvida é a seguinte: Como posso digitar em um edit por exemplo a palavra CASA e num outro edit ele devolver o nome HFXF.

Entenderam? Ele conta cinco caracteres a frente de cada caractere que foi digitado.

Se alguém puder me ajudar ficarei muito grata...

Beijos e té+.


Anjinho Loiro

Anjinho Loiro

Responder

Posts

13/05/2005

Edilcimar

todo carcter tem um valor ascii, basta somar 5 a este valor utilizando char e ord


Responder

Gostei + 0

13/05/2005

Marco Salles

Ele conta cinco caracteres a frente de cada caractere que foi digitado


e o que voce pretende fazer , quando voce digitar uma palavra que contem um caracter , do fim do Alfabeto.. Por exemplo o ´W´ , O ´Y´.
Quais seriam os cinco caracteres á frente desses Caracteres :?: :?:


Responder

Gostei + 0

13/05/2005

Anjinho Loiro

Amiguinho,

Sem querer bancar a chata nem abusar da sua boa vontade em responder a minha dúvida, vc poderia dar um exemplo?
Sou iniciante em Delphi.

Muito obrigada.


Responder

Gostei + 0

13/05/2005

Edilcimar

no meu exemplo daira
⌂Çüéâ


Responder

Gostei + 0

13/05/2005

Anjinho Loiro

Eu pensei numa tabela com todos os caracteres do alfabeto mais os número que conhecemos (0...9), e então dentro desta tabela o sistema faria o rodízio. Acho que isso é trabalho com MATRIZ.
Mas se vc souber de algo que funcione de maneira mais prática que essa minha idéia, não fique tímido, sinta-se a vontade para sugerir. Ficarei muito grata do mesmo jeito.

Obrigada.


Responder

Gostei + 0

13/05/2005

Edilcimar

ord() retorna o valor numérico de uma letra ou expressão A=65
char() faz o inverso 65=A


Responder

Gostei + 0

13/05/2005

Fred

Ae anjinho, blz!!! fiz aqui e parece que eh o que vc quer!! coloca esse codigo la no evento onKeyPress do edit

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var k : integer;
begin
  k := ord(key);
  k := K + 5;
  key := chr(k);
end;



Responder

Gostei + 0

13/05/2005

Anjinho Loiro

[quote=´Fred´]Ae anjinho, blz!!! fiz aqui e parece que eh o que vc quer!! coloca esse codigo la no evento onKeyPress do edit

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var k : integer;
begin
  k := ord(key);
  k := K + 5;
  key := chr(k);
end;


*******************************************************
Serviu como uma luva, muito obrigada e se precisar, estamos aí...
Bjs.


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar