Dicas Delphi – Retornar as Iniciais de uma String

Salve, salve amigos,

// função retorna as iniciais de uma String. Ex: ‘Saída por Consumo’ vai retornar SPC
 
Function retornaIniciais(x: String): String;
var
   i:Integer;
   aux:String;
   iniciais:String;
begin
        iniciais:=”;
        aux:=Trim(x);
        if aux” then
        begin
           iniciais:=MidStr(aux,1,1);
           i:=AnsiPos(‘ ‘,aux);
            while i>0 do
              begin
                iniciais:=iniciais+MidStr(aux,i+1,1);
                aux:=midstr(aux,1,i-1)+MidStr(aux,i+1,length(aux));
                i:=AnsiPos(‘ ‘,aux);
            end;//
            while i>0 then
        end;
        if aux” then
        Result:=UpperCase(iniciais);
end;

Take care

Anúncios

Deixe um comentário

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s