Delphi dicas

Função para formatar string com maiúsculas e minúsculas em seus respecti

Eai blz! ...essa função arruma maiúsculas e minúsculas  de qualquer string, tornando mais elegante e legível o seu conteúdo.



ex.:

TempStr := 'hEbeR De VArgAs bEnITeS';

TempStr := ArrumaStr(TempStr);



Retorna em TempStr:



Heber de Vargas Benites



--------------------------------------------------------------------------------------



Function ArrumaStr(strIn : stringr):string;

var

i            : integer;

tempStr, str : string;

begin

        str := strIn;

        tempStr := '';

        for i:=1 to length(str) do

        begin

                if i = 1 then

                tempStr := AnsiUpperCase(str[i])

                else

                if str[i-1] = ' ' then

                begin

                        if str[i+2] = ' ' then

                        tempStr := tempStr + AnsiLowerCase(str[i])

                        else

                        tempStr := tempStr + AnsiUpperCase(str[i]);

                end

                else

                tempStr := tempStr + AnsiLowerCase(str[i]);

        end;

        ArrumaStr := PChar(tempStr);



end;

por : Heber Benites