Fórum Iniciais do nome?? #52460

function PegaIniciaisDoNome(Nome: string): string;
const
  Excessao: array[1..6] of string = (´ DE ´,´ DO ´,´ DA ´,´ DOS ´,´ DAS ´,´ E ´);
var
  i: byte;
begin
  Nome := AnsiUpperCase(Trim(Nome));
  Result := ´´;

  // retira as ´excessoes´ do nome
  for i := 1 to High(Excessao) do
    Nome := StringReplace(Nome,Excessao[i],´ ´,[rfReplaceAll]);

  // se o nome não estiver vazio, pega as iniciais
  if Nome <> ´´ then
  begin
    Result := Nome[1];
    for i := 2 to Length(Nome) do
       if Nome[i] = ´ ´ then
         Result := Result + Nome[i+1];
  end;
end;