[Lazarus] Problems with accented characters

[Antônio]

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 <silvioprog at gmail.com>

> 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
> Lazarus at lists.lazarus.freepascal.org
> http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus/attachments/20100309/548459a1/attachment-0004.html>