[Lazarus] Problems with accented characters

[Antônio]

uses lclproc;

2010/3/9 Antônio <antoniog12345 at gmail.com>

> 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/e9425ec5/attachment-0004.html>