Forum > Portuguese

Estou tento problemas com letras acentudas

(1/1)

aacs:
Desculpe se estiver sendo repetitivo é porque pode ser algum bug que gostaria de compartilhar com vocês,  estou tendo problema e não consigo atribuir valores a nenhuma letra acentuda, se for letras sem acentos funciona normalmente, coloquei apenas uma letra 'ã 'aqui na função  pra não ficar grande o código, alguém pode me auxiliar?


--- 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 m(x:string): string;var  y: string;  w: integer;begin  Result := '';  for w := 1 to Length(x) do    begin      if (x[w] = 'ã')       then  y := '6'        else          y := ' ';      Result := Result + y;    end;end;
[Edited to add code tags :-]

dseligo:

--- 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";}};} ---uses LazUTF8;     function m(x:string): string;    var      y: string;      w: integer;    begin      Result := '';      for w := 1 to UTF8Length(x) do        begin          if (UTF8Copy(x,w,1) = 'ã')           then  y := '6'            else              y := ' ';          Result := Result + y;        end;    end;

aacs:
dseligo , muito obrigado!
Funcionou certinho.

Deus lhe pague

Att.

Navigation

[0] Message Index