I have difficulty displaying correct accented letter values

[aacs]

  I would be very grateful if you could help me!

I need  to show the values of the accented letters as well
thanks!

function valor(Str:String):String;
const
Lin1:String = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzÆÁÂÅÃÄáâæàåãäÉÊÈÍÎÌÏÇÓÔÒØÖÞÚÛÙÜæáâåãäáâæàåãäéêèíîìïçóôòøöþúûùü';
Lin2:String = '123456789123456789123456781234567891234567891234567811111111111115559999366666633331111111111111555999936666663333';

var
x,y:integer;
begin
   Result:='';
   for y:=1 to Length(Str) do
     begin
       x:=0;
       repeat x:=x+1;
       until Str[y]=Lin1

• ;

       Result:=Result+Lin2

• ;

     end;
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
   Memo1.clear;
   Memo1.text:=(valor(Edit1.Text));
end;

[speter]

Please consider enclosing your code within [code]...[/code] tags (the # symbol in the forum's "post" page.

[paweld]

Add unit LazUTF8 to uses section and:

• Length(Str) replace to UTF8Length(Str)
• Str[y] replace to UTF8Copy(Str, y, 1)

eg.

Code: Pascal  [Select][+][-]

1. uses
2.   LazUTF8;
3.  
4. function valor(Str:String):String;
5. const
6.   Lin1: String = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzÆÁÂÅÃÄáâæàåãäÉÊÈÍÎÌÏÇÓÔÒØÖÞÚÛÙÜæáâåãäáâæàåãäéêèíîìïçóôòøöþúûùü';
7.   Lin2: String = '123456789123456789123456781234567891234567891234567811111111111115559999366666633331111111111111555999936666663333';
8. var
9.   x, y:integer;
10. begin
11.    Result:='';
12.    for y:=1 to UTF8Length(Str) do
13.    begin
14.      x := UTF8Pos(UTF8Copy(Str, y, 1), Lin1);
15.      if x > 0 then
16.        Result:=Result+UTF8Copy(Lin2, x, 1);
17.    end;
18. end;
19.  
20. procedure TForm1.Edit1Change(Sender: TObject);
21. begin
22.    Memo1.clear;
23.    Memo1.text:=(valor(Edit1.Text));
24. end;