A todos. 
Bom dia. 
  
Estou tentando criar uma função no Crystal Reports 2011 para excluir acentos existentes na palavras, como por exemplo São Paulo deve ficar são Paulo sem o ~ . Só que não estou tendo sucesso. Se alguém tiver isto pronto ou poder me ajudar como fazer eu agredeço desde já. 
  
segue algo que tentei criar mas sem sucesso: 
  
Function (stringvar Texto); 
local stringvar QTexto; 
local stringvar Final; 
local numbervar x; 
QTexto := Texto; 
     For x:=1 To Len(QTexto) do 
        (Select  Mid(QTexto, x, 1) 
               Case "ó", "õ", "ô", "Ô", "Ó“","Õ" 
               :Mid(QTexto, x, 1) = "O"); 
               x:=x+1; 
QTexto 
  
  
Obrigado. 
  
Evandro