Fórum De UpperCase para LowerCase #199496
06/12/2003
0
Bom dia a todos,
Estou precisando formatar alguns registros em bases de dados (Paradox). No cadastro de clientes todos os nomes (11.000) estão Maiúsculas. Estou precisando passar os nomes para minúsculas com excessão da primeira letra de cada nome e sobrenomes e, se possível acentuar os caracteres que, pelo idioma português tenham que ser acentuados:
JOSE MARQUES SOBRINHO
José Marques Sobrinho
Alguém conhece ou tem uma função que realize essa rotina?
Desde já agradeço aos companheiros pela atenção.
.com
Estou precisando formatar alguns registros em bases de dados (Paradox). No cadastro de clientes todos os nomes (11.000) estão Maiúsculas. Estou precisando passar os nomes para minúsculas com excessão da primeira letra de cada nome e sobrenomes e, se possível acentuar os caracteres que, pelo idioma português tenham que ser acentuados:
JOSE MARQUES SOBRINHO
José Marques Sobrinho
Alguém conhece ou tem uma função que realize essa rotina?
Desde já agradeço aos companheiros pela atenção.
.com
.com
Curtir tópico
+ 0
Responder
Posts
06/12/2003
Cebikyn
Acentuar é difícil, mas para acertar maiúsculas e minúsculas, use esta função:
Function MixCase(InString: String): String;
{ Corrige a string que contenha caracteres maiusculos
inseridos no meio dela para tudo minusculo e com a
primeira letra maiuscula}
Var I: Integer;
Begin
Result := LowerCase(InString);
Result[1] := UpCase(Result[1]);
For I := 1 To Length(InString) - 1 Do Begin
If (Result[I] = ´ ´) Or (Result[I] = ´´´´) Or (Result[I] = ´"´)
Or (Result[I] = ´-´) Or (Result[I] = ´.´) Or (Result[I] = ´(´) Then
Result[I + 1] := UpCase(Result[I + 1]);
End;
End;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)