Chances are that this code works.
procedure TForm1.Edit1Change(Sender: TObject);
var
s :string;
p :integer;
begin
s := edit1.text;
while utf8pos('ã', s) > 0 do
begin
p := utf8pos('ã', s);
utf8delete(s, p, utf8length('ã'));
utf8insert('a', s, p);
end;
edit1.selstart := 100;
edit1.text := s;
end;
2010/3/8 Silvio Clecio <[email protected]>
> Vladimir Zhirov escreveu:
> > It seems to be a bug in OnUTF8KeyPress, the similar behaviour was
> > reported at Russian Free Pascal forum. Would you please create
> > a bug report?
>
> Hi friend,
>
> Yes. Please see here:
>
> http://bugs.freepascal.org/view.php?id=15932
>
> --
> []'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
>
--
_______________________________________________
Lazarus mailing list
[email protected]
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
