![]() |
![]() |
![]() |
![]() |
![]() |
FTP | ![]() |
![]() |
CCD | ![]() |
![]() |
Buscar | ![]() |
![]() |
Trucos | ![]() |
![]() |
Trabajo | ![]() |
![]() |
Foros | ![]() |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
![]() |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
||||
|
||||
![]() Hola amigos del club delphi, estaba tratando de realizar una consulta por el campo teléfono de mi tabla de la siguiente manera (809)999-9999, pero cuando limpio el mask edit los simbolos ( ) - se limpian y ahí esta el problema, cómo puedo hacer para que me permita digitar el número de teléfono una vez presione limpiar sin que se me quiten los simbolos y no me ocasione ningún error???, o si se puede hacer la consulta del teléfono como un valor entero ej. 809999999, sin que los simbolos ( ) - aún estando el tel. registrado de esta manera (809)999-9999, sean algún problema al momento de realizar la consulta.
Muchas gracias a cualquiera que pueda darme una ayuda con esto... ![]() |
#3
|
||||
|
||||
Hola, podrías crear otro campo en la tabla con el nombre NorTelefono en el cual se guardará una versión normalizada del número telefónico y podrías utilizar la siguiente función:
y llamarla en el evento en el evento beforePost de la tabla
Y despues puedes consultar el telefono sin normalizar pasando como parámetro el numero normalizado ( permitiendole al usuario que lo escriba como quiera.
Saludos |
#4
|
||||
|
||||
Mas Claro
Hice algo mal y no me funcionaron las etiquetas.
Lo repito. ( Esta técnica te da mas flexibilidad tanto a la hora de guardar como a la hora de consultar los números) Código Delphi [-]function NormalizarNumero(Cad : string) : string; var I:integer; TempCad : string; begin Result := Cad; for i := 1 to Length(Cad) do if not (Cad[i]in['0'..'9']) then begin TempCad := Result; while Pos(Cad[i], TempCad) > 0 do Delete(TempCad, Pos(Cad[i], TempCad), 1); Result:= TempCad; end; end; //la llamas en el evento BeforePost procedure TForm1.Table1BeforePost(DataSet: TDataSet); begin Table1.FieldByName('NormTelefono').Value := NormalizarNumero(Table1.FieldByName('Telefono').AsString); end; // Y consultas pasando como parámetro el número normalizado parametro := NormalizarNumero(Edit1.Text) |
#5
|
|||
|
|||
Saludos Anita..
para poner las etquitetas de codigo delphi es [ DELPHI ] contenido [ /DELPHI ] Sin espacios despues del corchete y sin espacios al CERRAR ejemplo:
Cita:
__________________
Poco ha de saber el que no pregunta.. Yo por eso soy un pregunton |
![]() |
|
|
![]() |
||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Capturar audio desde un micrófono y convertirlo a archivos WAV | El_Nasther | Varios | 3 | 02-10-2007 20:20:30 |
Realizar una consulta sobre los registros que devuelve otra consulta | Borjaserrano | Firebird e Interbase | 12 | 01-10-2007 23:19:44 |
consulta con un campo fecha tabla paradox | estebanx | Conexión con bases de datos | 5 | 24-02-2005 08:51:02 |
Consulta A Tabla A Un Campo No Index | rtaverash | Tablas planas | 1 | 10-01-2005 07:26:54 |
Realizar una multiplicacion en una consulta | muli | SQL | 2 | 19-06-2003 19:44:32 |
![]() |
|