Função para manter maiusculas as primeiras palavras
18/03/2003
0
Jeffjames
Posts
18/03/2003
Anonymous
É a primeira palavra ou a primeira letra de cada palavra?
18/03/2003
Anonymous
select initcap(nome)
from empregado;
18/03/2003
E_gama
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;
19/03/2003
Jeffjames
Clique aqui para fazer login e interagir na Comunidade :)
