Buscar por:

Deixando as 1ª letras maiusculas de um Edit

Código

{

* Autor: Marcos Calixto

* Responsavel por deixar a 1ª letra de uma string Maiuscula mesmo com separação por espaços.

* Exemplo: sao jose dos pinhais --> Sao Jose dos Pinhais

}

function UpperNome(const Nome: String): String;

var

x : Integer;

lista : Array[0..4] of String[03];

      function NaoAchaPreposicao(Palavra : String): Boolean;

      var

      x : Integer;

      begin

      Result := True;

      for x := 0 to 4 do

      if Trim(Palavra) = lista[x] then

      Result := False;

      end;

      begin

      Result := Nome;

      lista[0] := 'das';

      lista[1] := 'dos' ;

      lista[2] := 'de';

      lista[3] := 'do' ;

      lista[4] := 'da';

      Result := UpCase(Result[1]) + Copy(Result, 2, Length(Result));

      for x := 2 to Length(Nome) do begin

      if Nome[x] = #32 then

      if Copy(Nome,x+1,1) <> 'e' then

      if NaoAchaPreposicao(Copy(Nome,x+1,3)) then

      Result := Copy(Result, 1, x)

      + UpCase(Result[x+1])

      + Copy(Result, x+2, Length(Result));

      end;

end;

Como Usar: Edit1.text := UpperNome(Edit1.text)