Eu ficaria muito grata se pudesse me ajudar!
Ele só dá o valor da letra digitada no edit se eu teclar uma só
vez, se eu tentar duas ou mais dá erro, gostaria de saber no
que estou errando, gostaria de mostrar o valor da letra
repetidamente conforme digitar ela no edit.
digitaria no teclado: zAAAAAB zzzz no Edit exibiria: 5111111 5555 function m (x:string):string; var y:string; z,w:integer; begin if(x='A') or (x ='a') or (x='Â') or (x='â') or (x='ã') then y :='1'; if(x='b') then y:='1'; if(x='c') then y:='1'; if(x='z') then y:='5'; ...... Result:=''; for w:=1 to Length(x) do begin z:=0; repeat z:=z+1; until x[z]=x[z]; Result:=Result+y[w]; end; end; procedure TForm1.Edit1Change(Sender: TObject); begin memo1.text:=(m(edit1.text)); end;