Procedure CapitalizaTexto(sTexto is string)
sTexto = Lower(NoAccent(sTexto))//tudo minusculo
i is int
bEspacoAnterior is boolean = True
FOR i = 1 TO Length(sTexto)
IF bEspacoAnterior THEN
//coloca em maíusculo a letra
sTexto = Middle(sTexto,1,i-1) + Upper(Middle(sTexto,i,1)) + Middle(sTexto,i+1)
bEspacoAnterior = False
END
IF Asc(Middle(sTexto,i,1)) = 32 THEN //se for espaço
bEspacoAnterior = True
END
END
RESULT sTexto