Código
// palavras de uma string com exceção das
// preposições
function PriMaiuscula(nome:String):String;
var
i : Integer;
apelido : String;
branco : Boolean;
begin
apelido := '';
branco := True;
nome := LowerCase(nome);
apelido := UpperCase(Copy(nome,1,1));
for i := 1 to Length(nome) do
begin
if (Copy(nome,i,1) = ' ') then
begin
branco := ((UpperCase(Copy(nome,i,4)) = ' DO ') or
(UpperCase(Copy(nome,i,3)) = ' E ') or
(UpperCase(Copy(nome,i,4)) = ' DE ') or
(UpperCase(Copy(nome,i,4)) = ' DA ') or
(UpperCase(Copy(nome,i,5)) = ' DOS ') or
(UpperCase(Copy(nome,i,5)) = ' DAS '))
end;
if not branco then apelido := apelido+UpperCase(Copy(nome,i+1,1)) else apelido := apelido+Copy(nome,i+1,1);
branco := True;
end;
Result := apelido;
end;
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009