Fórum Como transformar as 1ª letras de um nome em maiúscula... Urg #177470
26/08/2003
0
E ai galera, tudo bem
Eu preciso de uma função que transforme as primeiras letras de um nome em um edit em maiúscula. Salvo que: de, da, das, do, dos não podem mudar. Preciso disso para delphi urgente.
Agradeço desde já à quem puder ajudar.
Abraços.
Eu preciso de uma função que transforme as primeiras letras de um nome em um edit em maiúscula. Salvo que: de, da, das, do, dos não podem mudar. Preciso disso para delphi urgente.
Agradeço desde já à quem puder ajudar.
Abraços.
Tommy
Curtir tópico
+ 0
Responder
Posts
26/08/2003
Bacalhau
Tommy essa pergunta já está respondida no fórum. Tenta pesquisar, todo o código está lá.
abraço do bacalhau
abraço do bacalhau
Responder
Gostei + 0
26/08/2003
Machado
coloque no evento onchanger
var
OldStart : Integer;
begin
With Edit1 do
if Text <> ´´ then
begin
OnChange := NIL;
OldStart := SelStart;
Text := UpperCase(Copy(Text,1,1))+LowerCase(Copy(Text,2,Length(Text)));
SelStart := OldStart;
OnChange := Edit1Change;
var
OldStart : Integer;
begin
With Edit1 do
if Text <> ´´ then
begin
OnChange := NIL;
OldStart := SelStart;
Text := UpperCase(Copy(Text,1,1))+LowerCase(Copy(Text,2,Length(Text)));
SelStart := OldStart;
OnChange := Edit1Change;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)