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