Hi friends, I'm trying to create a function to replace accented characters by single characters, e.g:
ã = a é = e ç = c ñ = n I'm trying to use OnKeyDown and OnUTF8KeyPress, but is not working, so I made some tests and saw that the problem is in the component: Code: --------------------------------- procedure TForm1.Button1Click(Sender: TObject); begin Edit2.Text := Edit1.text[1] end; --------------------------------- When: Edit1.Text = 'A', Edit2.Text = 'A'; When: Edit1.Text = 'Ã', Edit2.Text = '', empty; What can this be? I started a thread here: http://www.lazarus.freepascal.org/index.php/topic,8816.msg42665.html#msg42665 -- []'s Silvio Clécio -- programmer ObjectPascal - Blog: http://blog.silvioprog.com.br programmer ObjectPascal - Site: http://www.silvioprog.com.br programmer ObjectPascal - Twitter: http://twitter.com/silvioprog -- grupo Lazarus-BR no Google - http://groups.google.com/group/lazarus-br/ -- Mensagem assinada com PGP Public Key, Ver.: GnuPG v1.4.9 (GNU/Linux) -- _______________________________________________ Lazarus mailing list [email protected] http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
