Chances are that this code works.<br><br>procedure TForm1.Edit1Change(Sender: TObject);<br>var<br> s :string;<br> p :integer;<br>begin<br> s := edit1.text;<br> while utf8pos('ã', s) > 0 do<br> begin<br> p := utf8pos('ã', s);<br>
utf8delete(s, p, utf8length('ã'));<br> utf8insert('a', s, p);<br> end;<br> edit1.selstart := 100;<br> edit1.text := s;<br>end; <br><br><div class="gmail_quote">2010/3/8 Silvio Clecio <span dir="ltr"><<a href="mailto:silvioprog@gmail.com">silvioprog@gmail.com</a>></span><br>
<blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">Vladimir Zhirov escreveu:<br>
<div class="im">> It seems to be a bug in OnUTF8KeyPress, the similar behaviour was<br>
> reported at Russian Free Pascal forum. Would you please create<br>
> a bug report?<br>
<br>
</div>Hi friend,<br>
<br>
Yes. Please see here:<br>
<br>
<a href="http://bugs.freepascal.org/view.php?id=15932" target="_blank">http://bugs.freepascal.org/view.php?id=15932</a><br>
<div class="im"><br>
--<br>
[]'s<br>
<br>
Silvio Clécio<br>
--<br>
programmer ObjectPascal - Blog: <a href="http://blog.silvioprog.com.br" target="_blank">http://blog.silvioprog.com.br</a><br>
programmer ObjectPascal - Site: <a href="http://www.silvioprog.com.br" target="_blank">http://www.silvioprog.com.br</a><br>
programmer ObjectPascal - Twitter: <a href="http://twitter.com/silvioprog" target="_blank">http://twitter.com/silvioprog</a><br>
--<br>
grupo Lazarus-BR no Google - <a href="http://groups.google.com/group/lazarus-br/" target="_blank">http://groups.google.com/group/lazarus-br/</a><br>
--<br>
Mensagem assinada com PGP Public Key, Ver.: GnuPG v1.4.9 (GNU/Linux)<br>
<br>
--<br>
_______________________________________________<br>
</div><div><div></div><div class="h5">Lazarus mailing list<br>
<a href="mailto:Lazarus@lists.lazarus.freepascal.org">Lazarus@lists.lazarus.freepascal.org</a><br>
<a href="http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus" target="_blank">http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus</a><br>
</div></div></blockquote></div><br>