Escrever num campo e aparecer diferente no outro

Delphi

16/11/2003

Tô querendo saber por onde eu começo... :o
Do tipo, tem um edit no meu programa, logo abaixo dele há outro, no primeiro edit quando a pessoa escrever alguma coisa vai aparecer no segundo edit diferente, ou seja, substituindo as letras. Exemplo:
digito ´Fosk´ no edit1 e aparece F2o8s50k11 no edit2. Substituindo nesse caso o F por F2, o O por o8 e assim por diante... entenderam mais ou menos oq que eu quero?! :)

Vlw pela a ajuda gente!


Fosknet

Fosknet

Curtidas 0

Respostas

Luineumann

Luineumann

16/11/2003

Considerando que edit1 é o edit onde será feita a digitação e edit2 o edit que receberá o valor faça

no evento onchange de edit1 faça

procedure TForm1.Edit1Change(Sender: TObject);
var
ii : word;
begin
edit2.text := ´´;
for ii := 1 to length(edit1.text)
do begin
if Uppercase(edit1.text[ii]) = ´F´ then edit2.text := edit2.text + ´F2´;
if Uppercase(edit1.text[ii]) = ´O´ then edit2.text := edit2.text + ´o8´;
if Uppercase(edit1.text[ii]) = ´S´ then edit2.text := edit2.text + ´s50´;
if Uppercase(edit1.text[ii]) = ´K´ then edit2.text := edit2.text + ´k11´;
end;

end;


GOSTEI 0
Basilio.sp

Basilio.sp

16/11/2003

Entendi mais ou menos...

Vc quer determinados valores fixos, como f = f2, o = o8, etc, ou variáveis?


GOSTEI 0
POSTAR