Fórum Primeira maiúscula... #183069
19/09/2003
0
Bom dia amigos,
Estou precisando alterar o conteúdo de uma base de dados. Na base todos os nomes estão escritos em maiúsculo e terei de escrevê-los da maneira usual (Primeira letra em maiúsculo e o restante em minúsculo (JOSE DAMIAO PACHECO... José Damião Pacheco). Se puderem me passar uma função que faça isso...
Desde já meus sinceros agradecimentos,
.com
Estou precisando alterar o conteúdo de uma base de dados. Na base todos os nomes estão escritos em maiúsculo e terei de escrevê-los da maneira usual (Primeira letra em maiúsculo e o restante em minúsculo (JOSE DAMIAO PACHECO... José Damião Pacheco). Se puderem me passar uma função que faça isso...
Desde já meus sinceros agradecimentos,
.com
.com
Curtir tópico
+ 0
Responder
Posts
19/09/2003
Tio Frank
function Maiuscula(Texto:String): String;
{Converte a primeira letra do texto especificado para
maiuscula e as restantes para minuscula}
var
OldStart: Integer;
begin
if Texto <> ´´ then
begin
Texto := UpperCase(Copy(Texto,1,1))+LowerCase(Copy(Texto,2,Length(Texto)));
Result := Texto;
end;
end;
{Converte a primeira letra do texto especificado para
maiuscula e as restantes para minuscula}
var
OldStart: Integer;
begin
if Texto <> ´´ then
begin
Texto := UpperCase(Copy(Texto,1,1))+LowerCase(Copy(Texto,2,Length(Texto)));
Result := Texto;
end;
end;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)