Fórum Mascara de telefone 7 e 8 digitos #144480

11/03/2003

0

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


Anonymous

Anonymous

Responder

Posts

12/03/2003

Maurício Santos

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


Responder

Gostei + 0

12/03/2003

Jeancamila

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!


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar