De UpperCase para LowerCase

06/12/2003

2

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


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

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários. Para saber mais sobre o uso de cookies,
consulte nossa política de privacidade. Ao continuar navegando em nosso site, você concorda com a nossa política.

Aceitar