Mascara de telefone 7 e 8 digitos
Digamos q se tenho um telefone com 7 digitos (123-12345) e no entanto eu coloca-se um de 8 (1234-1234), como seria o codigo em cada saida dele.
Ex: se coloco 7 digitos ele formata para 000-0000, se for 8 é 0000-0000
agradço desde ja
Ex: se coloco 7 digitos ele formata para 000-0000, se for 8 é 0000-0000
agradço desde ja
Anonymous
Curtidas 0
Respostas
Maurício Santos
11/03/2003
Olá!!!
No eveno OnKeyPress do dbEdit digite:
begin
if not(key in [´0´..´9´,#8,13]) then
key := 0;
end;
No evento OnExit digite:
var
formato: String;
begin
formato := dbEdit.Text;
if Length(formato) < 8 then
begin
dbEdit.Text := Copy(formato,1,3)+´-´+Copy(formato,4,4);
end
else
begin
dbEdit.Text := Copy(formato,1,4)+´-´+Copy(formato,5,4);
end;
end;
[]´s
No eveno OnKeyPress do dbEdit digite:
begin
if not(key in [´0´..´9´,#8,13]) then
key := 0;
end;
No evento OnExit digite:
var
formato: String;
begin
formato := dbEdit.Text;
if Length(formato) < 8 then
begin
dbEdit.Text := Copy(formato,1,3)+´-´+Copy(formato,4,4);
end
else
begin
dbEdit.Text := Copy(formato,1,4)+´-´+Copy(formato,5,4);
end;
end;
[]´s
GOSTEI 0
Jeancamila
11/03/2003
Acho que entendi,
mas a mascara de entrada, serve para quando vc entrar com dado ele ja definir como ira ser colocado o telefone, vc esta utilizando em um BD? tente alguma coisa em relação à formato.
por exemplo:
FormatFloat(const Format: string; Value: Extended): string;
se alguem tiver uma solução melhor é só dizer
fui!
mas a mascara de entrada, serve para quando vc entrar com dado ele ja definir como ira ser colocado o telefone, vc esta utilizando em um BD? tente alguma coisa em relação à formato.
por exemplo:
FormatFloat(const Format: string; Value: Extended): string;
se alguem tiver uma solução melhor é só dizer
fui!
GOSTEI 0