ajuda com primeira letra maiuscula no edit

Question

ola amigos preciso de uma fun�ao que deixe somente a primeira letra maiuscula, respeitando nomes proprios e excluindo complementos (dos,das,de,da) dos nomes pra maiuscula e no final fique assim:ex:Ful...

Martins · Answer

use a fun��o abaixo, mas para usar no OnChange do controle, vc ter� q modificar algumas coisas.

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;

Boa sorte!!!

Martins · Answer

Uma outra alternativa � vc ativar a fun��o no evento OnExit do controle, qualquer coisa posta aqui q tentaremos ajud�-lo.boa sorte!!...

Njuniorba · Answer

como uso estas fun��es??[]�s...

Emerson Nascimento · Answer

veja esse outro t�pico:[url]//forum.clubedelphi.net/viewtopic.php?t=73567[/url]...

Martins · Answer

[quote:d8f60f7b55=�njuniorba�][quote:d8f60f7b55=�Martins�]Uma outra alternativa � vc ativar a fun��o no evento OnExit do controle, qualquer coisa posta aqui q tentaremos ajud�-lo.boa sorte!![/quote:d8f60f7b55]como uso estas fun��es??[]�s[/quote:d8f60f7b55][code:1:d8f60f7b55]   Edit1.text := UpperNome(Edit1.text); [/code:1:d8f60f7b55]Boa sorte!...

Martins · Answer

Olhei o c�digo postado pelo Emerson em outro t�pico e est� bem melhor.veja:[code:1:bd470ae8a7]  Edit1.Text := FormataNome(Edit1.text); [/code:1:bd470ae8a7]Boa sorte!!!...

Njuniorba · Answer

No caso so funciona em UpperCase e no onexit, a minha ideia era o cara ir digitando Onchange e ja ir formatando automaticamente, se ele nao utilzasse o capslock ativo..[]�s...

Emerson Nascimento · Answer

fa�a assim no OnChange:[code:1:d0a847516b]var  i: integer;begin  i := Edit1.SelStart;  Edit1.Text := FormataNome(Edit1.Text);  Edit1.SelStart := i;end;[/code:1:d0a847516b]...

Facc · Answer

[quote:2ed8c9ba4a=�emerson.en�]fa�a assim no OnChange:[code:1:2ed8c9ba4a]var  i: integer;begin  i := Edit1.SelStart;  Edit1.Text := FormataNome(Edit1.Text);  Edit1.SelStart := i;end;[/code:1:2ed8c9ba4a][/quote:2ed8c9ba4a]Como posso usar essa fun��o acima funcionar para mais de um Edit, digitando apenas uma vez no OnChange e ligar nos demais Edits???...

Emerson Nascimento · Answer

basta ligar os edits ao mesmo procedimento OnChange...

Facc · Answer

[quote:64c5439537=�emerson.en�]basta ligar os edits ao mesmo procedimento OnChange[/quote:64c5439537]Sim... mas repare na fun��ovar  i: integer;begin  i := [b:64c5439537]Edit1[/b:64c5439537].SelStart;  [b:64c5439537]Edit1[/b:64c5439537].Text := FormataNome([b:64c5439537]Edit1[/b:64c5439537].Text);  [b:64c5439537]Edit1[/b:64c5439537].SelStart := i;end;N�o estaria funcionando apenas para o Edit1?...

Emerson Nascimento · Answer

altere para:[code:1:408ab28229]var  i: integer;begin  i := TEdit(Sender).SelStart;  TEdit(Sender).Text := FormataNome(TEdit(Sender).Text);  TEdit(Sender).SelStart := i;end;[/code:1:408ab28229]assim o procedimento ir� trabalhar com o objeto de forma abstrata....