Primeira maiúscula...
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
Curtidas 0
Respostas
Tio Frank
19/09/2003
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;
GOSTEI 0