Precisaria pegar valores das letras acentuadas ela retorna um valor diferente apenas para as acentudas, as sem acentos ela funciona certinho.
E não tem problema se for uma outra função diferente dessa, desde já agradeçido.
obrigado!
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[x];
Result:=Result+Lin2[x]
end;
end;
procedure TForm1.Edit1Change(Sender: TObject);
begin
Memo1.clear;
Memo1.text:=(valor(Edit1.Text));
end;
[Edited to add code tags :-]