Rodízio de caracteres

Delphi

13/05/2005

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

Curtidas 0

Respostas

Edilcimar

Edilcimar

13/05/2005

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


GOSTEI 0
Marco Salles

Marco Salles

13/05/2005

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 :?: :?:


GOSTEI 0
Anjinho Loiro

Anjinho Loiro

13/05/2005

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.


GOSTEI 0
Edilcimar

Edilcimar

13/05/2005

no meu exemplo daira
⌂Çüéâ


GOSTEI 0
Anjinho Loiro

Anjinho Loiro

13/05/2005

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.


GOSTEI 0
Edilcimar

Edilcimar

13/05/2005

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


GOSTEI 0
Fred

Fred

13/05/2005

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;



GOSTEI 0
Anjinho Loiro

Anjinho Loiro

13/05/2005

[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.


GOSTEI 0
POSTAR