Fun��o para manter maiusculas as primeiras palavras

Question

Amigos, preciso de uma fun��o que transforme a primeira palavra de uma serie em maiuscula e o restante em minuscula. Exemplo completo do que preciso adaptando a primeira fun��o que me enviaram... �ETR...

Anonymous · Answer

[quote:ab314cdf8a=�JeffJames�]Amigos, preciso de uma fun��o que transforme a primeira palavra de uma serie em maiuscula e o restante em minuscula. Exemplo completo do que preciso adaptando a primeira fun��o que me enviaram... �ETR ENG JOAO SAMPAIO� em uma tabela DBF com o nome do campo �NOME�, deveria ser corrigida para �Estrada Engenheiro Jo�o Sampaio�. Agade�o a que poder me ajudar.[/quote:ab314cdf8a]� a primeira palavra ou a primeira letra de cada palavra?...

Anonymous · Answer

INITCAP: converte o primeiro caracter de cada palavra upper caseselect initcap(nome)from empregado;...

E_gama · Answer

Se for a primeira palavra ...[code:1:b4c65f0f96]  function PrimeiraMaiuscula(Texto: string): string;  var PrimStr, AuxStr: string;      I: Integer;  begin    AuxStr := LowerCase(Trim(Texto));  // Converte para minuscula    I := Pos(� �, AuxStr);    if I = 0 then // Uma so palavra       Result := UpperCase(Texto)    else       begin         PrimStr := UpperCase(Copy(AuxStr, 1, I - 1)); // Primeira Palavra         Delete(AuxStr, 1, I);         Result := PrimStr + � � + AuxStr;        end;  end;[/code:1:b4c65f0f96]...

Jeffjames · Answer

� a 1 letra de cada palavra em um campo denominado NOME de um DBF... obrigado pela ajuda!...

F�rum Fun��o para manter maiusculas as primeiras palavras #146988