Forum > Portuguese

Pegar valores também das letras acentudas

(1/1)

aacs:
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!


--- Code: Pascal  [+][-]window.onload = function(){var x1 = document.getElementById("main_content_section"); if (x1) { var x = document.getElementsByClassName("geshi");for (var i = 0; i < x.length; i++) { x[i].style.maxHeight='none'; x[i].style.height = Math.min(x[i].clientHeight+15,306)+'px'; x[i].style.resize = "vertical";}};} ---function valor(Str:String):String;constLin1:String = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzÆÁÂÅÃÄáâæàåãäÉÊÈÍÎÌÏÇÓÔÒØÖÞÚÛÙÜæáâåãäáâæàåãäéêèíîìïçóôòøöþúûùü';Lin2:String = '123456789123456789123456781234567891234567891234567811111111111115559999366666633331111111111111555999936666663333'; varx,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 :-]

Navigation

[0] Message Index