GARANTIR DESCONTO

Fórum Apenas Primeira Letra de Cada Palavra Maiuscula #232070

13/05/2004

0

Delphi

Tenho um cadastro que tá uma zona, um tá tudo minusculo, outro tudo maiusculo, alguns começam com minusculo, e depois ficam maiusculos...

Enfim, queria saber se existe alguma função delphi ou instrução SQL que deixe apenas a PRIMEIRA letra de CADA palavras maiuscula, pra eu corrigir este BD.

[]´s
Oberdan :?:


Oberdan

Oberdan

Responder

Posts

13/05/2004

Motta

no oracle tem a initcap


Responder

Gostei + 0

13/05/2004

Oberdan

Mas o meu banco é SQL Server :(


Responder

Gostei + 0

13/05/2004

.com

Function TF_UpperLower.MixCase(InString: String): String;
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

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar