Validar Telefono Edit!

[[maeyanes]]

Hola...

¿Si estás usando Delphi 7, por que pusiste tu duda en la sección de C++ Builder? Es por eso que te pusieron código en C++ y si solo haces copy-paste pues obvio que tendrás varios errores de sintaxis...

Checa en mi firma el link que dice: Lee la Guía de Estilo...



Saludos...

[fr3ddy]

Muchas Gracias por responder!

Realmente soy nuevo aqui! y al momento en que puse el tema!
Busque uno que dijese Delphi pero no lo encontre

Asi que supuse que este funcionaria (Mi error) con respecto al copy-paste. Cierto he usado codigo de la web pero aun asi, he leido sobre las instrucciones y demas he declarado las variables que me pide y todo!

He logrado validar unicamente numeros mas no en el orden que lo necesito ni limitanto a que sean 10 o 13 ni mas ni menos! Opte por usar dos maskedit diferentes uno para Telefono y otro para Celular más, limite los caracteres maximos (Muy basico para uds supongo :P) pero no he localizado como el minimo :S



Nota: Podrias ayudar como colocar mi tema en el foro correcto

Gracias*N

[chingolo]

esto en tu onkeypress del edit, para que admita solo numeros

Código Delphi [-]
  if ( StrScan('0123456789',Key) <> nil ) or 
     ( Key = Char(VK_BACK) ) then { BackSpace Key }
  begin 
    {Aqui tu tratamiento normal del evento}
  end 
  else 
    Key := #0; //acordate de esto porq sino te puede generar error porq le seguis pasando el evento ojo

esto seria si es 044 o 045, pero en tu keyup porq asi el numero ya se ingreso en el edit, lo q hago es que cuando se ingresen los tres primeros caracteres recien ahi se modifique la long, tambien podes controlar la entrada forzada de caracteres si se selecciona celular

Código Delphi [-]
if (Length(edit1.text)>0 and Length(edit1.text)<4) then
if ((StrComp(PChar(Edit1.Text), PChar('044'))=0) or (StrComp(PChar(Edit1.Text), PChar('048'))=0)  then
begin
{aca cambia la longitud maxima a 13}
end;

[Neftali [Germán.Estévez]]

Por favor, utilizad los TAG's cuando añadáis código a los mensajes.