quem pode me ajudar!
é só pra passar pra java esse código.
function TiraAcento(s:string):string;
var i:integer; aux : string;
begin
aux := '';
for i := 1 to length(s) do
if s[i] in ['á','à','â','ã']
then aux := aux + 'a' else
if s[i] in ['é','è','ê']
then aux := aux + 'e' else
if s[i] in ['í','ì','î']
then aux := aux + 'i' else
if s[i] in ['ó','ò','ô','õ']
then aux := aux + 'o' else
if s[i] in ['ú','ù','û','ü']
then aux := aux + 'u' else
if s[i] in ['Á','À','Â','Ã']
then aux := aux + 'A' else
if s[i] in ['É','È','Ê']
then aux := aux + 'E' else
if s[i] in ['Í','Ì','Î']
then aux := aux + 'I' else
if s[i] in ['Ó','Ò','Ô','Õ']
then aux := aux + 'O' else
if s[i] in ['Ú','Ù','Û','Ü']
then aux := aux + 'U' else
if s[i] in ['á','à','â','ã']
then aux := aux + 'a' else
if s[i] in ['é','è','ê']
then aux := aux + 'e' else
if s[i] in ['í','ì','î']
then aux := aux + 'i' else
if s[i] in ['ó','ò','ô','õ']
then aux := aux + 'o' else
if s[i] = 'ç'
then aux := aux + 'c' else
if s[i] = 'Ç'
then aux := aux + 'C' else
aux := aux + s[i];
TiraAcento := aux;
end;
agradeço quem tiver a paciência de me atender