Apenas Primeira Letra de Cada Palavra Maiuscula

Delphi

13/05/2004

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

Curtidas 0

Respostas

Motta

Motta

13/05/2004

no oracle tem a initcap


GOSTEI 0
Oberdan

Oberdan

13/05/2004

Mas o meu banco é SQL Server :(


GOSTEI 0
.com

.com

13/05/2004

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;


GOSTEI 0
POSTAR