Como transformar as 1ª letras de um nome em maiúscula... Urg
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
Curtidas 0
Respostas
Bacalhau
26/08/2003
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
GOSTEI 0
Machado
26/08/2003
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;
GOSTEI 0