vanix
Mensagens : 26 Data de inscrição : 20/01/2011
| Assunto: Como deixar as 1º letras maiusculas de um componente edit. (Delphi) Qua Ago 12, 2015 10:47 am | |
| exemplo: final no edit: digita josé rodrigues silva + resultado José Rodrigues Silva. - Código:
-
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) | |
|