FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Nombres válidos para tablas paradox (Propiedad TableName)
La cuestión es que al crear una tabla paradox en runtime, trato de que el nombre de la misma sea introducido por el usuario de la aplicación mediante un InputQuery. El caso es que para validar dicho nombre, compruebo que no sea una cadena vacía y que si su nombre ya coincide con el nombre de otra tabla, nos de la posibilidad de sobreescribir. Sin embargo, cabe la posibilidad de que el usuario introduzca caracteres no válidos para el nombre de una tabla y me gustaría preguntar de qué manera atajo esa posibilidad. Si podeis también facilitarme dónde puedo ver las restricciones de caracteres no válidos os lo agradecería, ya que creo que son '\', '/' y '.', pero no sé si hay alguno más.
Código:
String nombreTabla = ""; //Inicializamos a cadena vacía TTable *nuevaTabla = new TTable(this); nuevaTabla->Active = false; nuevaTabla->DatabaseName = ruta_db; nuevaTabla->TableType = ttParadox; //Proceso para asignar el nombre que recibirá la Tabla: if(InputQuery("Asignar nombre de la tabla","Introduzca el nombre de la nueva tabla",nombreTabla)) { if(!nombreTabla.IsEmpty()) //Si el nombre de la tabla no es una CADENA VACÍA { if(Comprobamos si nombreTabla es válido) { nuevaTabla->TableName = nombreTabla; //Asignamos el nombre de la Tabla //Aquí irían la definición de los campos nuevaTabla->CreateTable(); //Finalmente, se crea la Tabla } else { //Volver a intentarlo de nuevo avisando de los caracteres no válidos } } } |
#2
|
||||
|
||||
Hola Yugo.
Revisa este ejemplo: Código:
/* Crear tabla */ void TablaCreate(String tableName) { TTable *tb = new TTable(NULL); tb->Close(); tb->DatabaseName = ExtractFilePath(Application->ExeName); // ruta tb->TableName = tableName; tb->TableType = ttParadox; tb->FieldDefs->Clear(); tb->FieldDefs->Add("ID", ftAutoInc, 0, false); tb->FieldDefs->Add("NOMBRE", ftString, 30, false); tb->FieldDefs->Add("DOMICILIO", ftString, 30, false); tb->FieldDefs->Add("TELEFONO", ftString, 15, false); tb->IndexDefs->Clear(); tb->IndexDefs->Add("", "ID", TIndexOptions()<< ixPrimary << ixUnique); tb->IndexDefs->Add("INDNOMBRE", "NOMBRE", TIndexOptions()<< ixCaseInsensitive); tb->CreateTable(); delete tb; } /* Verificar nombre */ bool isValidName(String str) { if (str == "" || (str[1]>='0'&&str[1]<='9')) return false; for(int i=1; i< str.Length(); i++) { char c = UpCase(str[i]); if(!((c>='A'&&c<='Z') || (c>='0'&&c<='9') || (c=='_'))) return false; } return true; } /* Ejemplo de uso */ void __fastcall TForm1::Button1Click(TObject *Sender) { String name; bool ok; do { if(InputQuery("Crear tabla", "Nombre", name)) ok = isValidName(name); } while ((name != "") && !ok); if (name != "") TablaCreate(name); }
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... |
#3
|
||||
|
||||
Supongo que para introducir el nombre usas un TEdit ¿Por que no usas el evento OnKeyPress para filtrar las pulsaciones de teclas? Con eso te aseguras que no se introduzcan caracteres invalidos.
|
#4
|
||||
|
||||
si sabes que son solo esas tres pues if(Key == '/' ll Key == '\\' ll Key == '.') Key = 0;
|
#5
|
|||
|
|||
Qué tal ecfisa, tu código resulta muy cómo la verdad. Creo que sería interesante poder crear un módulo para poder insertarlo en el proyecto y de esta forma, si hay que recurrir varias veces a realizar dicha comprobación, ahorrarnos algo de código.... voy a tratar de hacerlo para exponerlo aquí. Espero, que me des permiso para usar tu código como ejemplo.
Por cierto, creo que se te olvidó poner el signo <= en la condición del bucle for que he resaltado en tu código. Si sólo ponemos < el bucle no recorrería la cadena String al completo, le faltaría el último carácter, ¿no? Código:
/* Verificar nombre */ bool isValidName(String str) { if (str == "" || (str[1]>='0'&&str[1]<='9')) return false; for(int i=1; i<=str.Length(); i++) { char c = UpCase(str[i]); if(!((c>='A'&&c<='Z') || (c>='0'&&c<='9') || (c=='_'))) return false; } return true; } Última edición por Yugo fecha: 06-09-2014 a las 02:15:57. |
#6
|
|||
|
|||
Hola aguml, qué tal todo!! gracias por tu consejo. Seguro que lo probaré. Mi intención en este caso es conseguir el nombre mediante un InputQuery, pero es bueno saber de otras opciones.
Cita:
|
#7
|
||||
|
||||
Hola Yugo.
Cita:
Y como te comenta aguml, lo normal es usar un TEdit donde se puede evaluar mucho mas fácilmente los caracteres ingresados, pero como comentaste que usarías un InputQuery, quise seguir la línea... Saludos
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... |
#8
|
||||
|
||||
Hola de nuevo.
Para no dejar las cosas por la mitad, una implementación para usar con un TEdit: Código:
// Grupo de caracteres no validos para nombre const char* wrongKey = "|°¬!\"#$%&/()='?\\¿¡@´¨+*~{[^}]`<>,;.:-"; // Limpiar Edit ingreso de nombre void __fastcall TForm1::FormCreate(TObject *Sender) { Edit1->Clear(); } // Verificar en escritura void __fastcall TForm1::Edit1KeyPress(TObject *Sender, char &Key) { TEdit *ed = static_cast<TEdit*>(Sender); if((ed->SelStart+ed->SelLength == 0 && Key>=0x30 && Key<=0x39) || StrPos(wrongKey, String(Key).c_str()) != NULL) Key=0; } // Verificar por copiado/pegado void __fastcall TForm1::Edit1Exit(TObject *Sender) { TEdit *ed = static_cast<TEdit*>(Sender); for(int i = 1; i <= ed->Text.Length();i++) if (StrPos(wrongKey, ed->Text.c_str()+i) != NULL) { MessageBeep(MB_ICONERROR); ed->SetFocus(); } }
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... |
#9
|
||||
|
||||
muy interesante pero hay algo que no entiendo bien: if((ed->SelStart+ed->SelLength == 0 && Key>=0x30 && Key<=0x39)... La primera no entiendo que comprueba y la segunda ¿No se admiten numeros en el nombre? ¿Puedes explicar esa zona?
|
#10
|
||||
|
||||
Hola aguml.
Cuando la suma de las propiedades SelLength y SelStart es igual a cero, estamos situados en el primer caracter y un nombre de tabla no puede comenzar por por un dígito numérico (0x33='0', 0x39='9'). De allí en más esta condición no se cumple y son permitidos los dígitos numéricos. Saludos
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... |
#11
|
||||
|
||||
Muy interesante tu código y no sabía que un nombre de tabla no podia empezar con un número. ¿eso es solo en paradox?
Por cierto no sabía de la existencia de StrPos, yo siempre tiraba de strstr en C y en builder de AnsiString().Pos. Me gusta mucho el modo en que compruebas si el caracter es uno de los no deseados ya que yo hubiese tirado de muuuchos if. Nunca se me pasó por la cabeza esa opcion. Otra cosa, ¿por qué haces esto en vez de usar directamente el nombre del componente? TEdit *ed = static_cast<TEdit*>(Sender); if((ed->SelStart+ed->SelLength == 0... en vez de: if((Edit1->SelStart+Edit1->SelLength == 0... Le vería sentido para una funcion a la cual le pasas el puntero pero en un evento del componente donde puedes usar su nombre ya que no es algo que se vaya a usar en varios componentes diferentes... Última edición por aguml fecha: 06-09-2014 a las 18:13:12. |
#12
|
||||
|
||||
Aquí si le veo sentido:
Código:
const char* wrongKey = "|°¬!\"#$%&/()='?\\¿¡@´¨+*~{[^}]`<>,;.:-"; //--------------------------------------------------------------------------- // Limpiar Edit ingreso de nombre void __fastcall TForm1::FormCreate(TObject *Sender) { Edit1->Clear(); Edit2->Clear(); Edit3->Clear(); } //--------------------------------------------------------------------------- // Verificar en escritura void VerifyKey(TObject *Sender, char &Key) { TEdit *ed = static_cast<TEdit*>(Sender); if((ed->SelStart+ed->SelLength == 0 && isdigit(Key)) || StrPos(wrongKey, String(Key).c_str()) != NULL) Key=0; } //--------------------------------------------------------------------------- // Verificar por copiado/pegado void VerifyOnPaste(TObject *Sender) { TEdit *ed = static_cast<TEdit*>(Sender); for(int i = 1; i <= ed->Text.Length();i++) if (StrPos(wrongKey, ed->Text.c_str()+i) != NULL || isdigit(ed->Text[1])) { MessageBox(Application->Handle,AnsiString("Una cadena no válida fue pegada en " + ed->Name + ".\nRevísela antes de continuar.").c_str(),"Atención",MB_OK | MB_ICONERROR); ed->SetFocus(); } } //--------------------------------------------------------------------------- void __fastcall TForm1::Edit1KeyPress(TObject *Sender, char &Key) { VerifyKey(Sender,Key); } //--------------------------------------------------------------------------- void __fastcall TForm1::Edit2KeyPress(TObject *Sender, char &Key) { VerifyKey(Sender,Key); } //--------------------------------------------------------------------------- void __fastcall TForm1::Edit3KeyPress(TObject *Sender, char &Key) { VerifyKey(Sender,Key); } //--------------------------------------------------------------------------- void __fastcall TForm1::Edit1Exit(TObject *Sender) { VerifyOnPaste(Sender); } //--------------------------------------------------------------------------- void __fastcall TForm1::Edit2Exit(TObject *Sender) { VerifyOnPaste(Sender); } //--------------------------------------------------------------------------- void __fastcall TForm1::Edit3Exit(TObject *Sender) { VerifyOnPaste(Sender); } //--------------------------------------------------------------------------- Última edición por aguml fecha: 06-09-2014 a las 18:50:46. |
#13
|
||||
|
||||
Hola aguml.
Cita:
Código:
void __fastcall TForm1::Edit1KeyPress(TObject *Sender, char &Key) { TEdit *ed = static_cast<TEdit*>(Sender); if((ed->SelStart+ed->SelLength == 0 && Key>=0x30 && Key<=0x39) || StrPos(wrongKey, String(Key).c_str()) != NULL) Key=0; } Lo mismo cuenta para la función miembro "Edit1Exit". Saludos
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... |
#14
|
||||
|
||||
pues tienes toda la razon, no habia pensado en esa opcion. En ese caso seria mejor crearnos un nombre mas estandar pero es algo simplemente porque el nombre no haga referencia a un tedit, solo eso. Por ejemplo EditKeyPress y EditExit.
|
#15
|
||||
|
||||
ecfisa tu código para cuando sales del TEdit tiene algo mal, he estado mirandolo y yo al final lo he dejado así y funciona:
Código:
// Verificar por copiado/pegado // El mismo evento lo asignamos a todos los TEdits que queramos filtrar void __fastcall TForm1::EditsExit(TObject *Sender) { TEdit *ed = static_cast<TEdit*>(Sender); //Si el TEdit no está vacío entramos if(ed->Text != "") { //Si el primer caracter es un número en este caso no nos vale la cadena pegada if(isdigit(ed->Text[1])){ MessageBox(Application->Handle,AnsiString("Una cadena no válida fue pegada en " + ed->Name + ".\nRevísela antes de continuar.").c_str(),"Atención",MB_OK | MB_ICONERROR); ed->SetFocus(); }else{ //Si el primer caracter no es numérico comprobamos que la cadena no contenga caracteres inválidos para nuestro propósito recorriendola entera for(int i = 1; i <= ed->Text.Length();i++) { if (StrPos(wrongKey, String(ed->Text[i]).c_str()) != NULL) { MessageBox(Application->Handle,AnsiString("Una cadena no válida fue pegada en " + ed->Name + ".\nRevísela antes de continuar.").c_str(),"Atención",MB_OK | MB_ICONERROR); ed->SetFocus(); break; } } } } } //--------------------------------------------------------------------------- Corrijeme en lo que veas que estoy equivocado. |
#16
|
||||
|
||||
Hola aguml.
Si tenes razón, la función falla en el caso que comentas. Y la tuya también lo hace cuando detecta un error al salir del Edit. Luego de mostrar el mensaje y asignarle nuevamente el foco y estándo el texto selecionado, permite la introducción de un número ya que los valores de SelStart y SelLength no son actualizados. Sin embargo, pude comprobar que se simplifica el tratamiento con el uso de String: Código:
... String wrongChar = "|°¬!\"#$%&/()='?\\¿¡@´¨+*~{[^}]`<>,;.:-"; void __fastcall TForm1::FormCreate(TObject *Sender) { for(int i=0;i < ComponentCount; i++) if(Components[i]->ClassNameIs("TEdit")) (static_cast<TEdit*>(Components[i]))->Clear(); } void __fastcall TForm1::EditKeyPress(TObject *Sender, char &Key) { TEdit *ed = static_cast<TEdit*>(Sender); if(ed->SelStart+ed->SelLength == 0 && (char)Key>='0' && (char)Key<='9' || wrongChar.AnsiPos((char)Key)!=0) { MessageBeep(MB_ICONERROR); Key=0; } } void __fastcall TForm1::EditExit(TObject *Sender) { TEdit *ed = static_cast<TEdit*>(Sender); bool invalid = false; if(ed->Text == "") return; if(ed->Text[1]>='0'&&ed->Text[1]<='9'|| wrongChar.AnsiPos(ed->Text[1])!=0) invalid = true; for(int i = 2; i <= ed->Text.Length(); i++) if(wrongChar.AnsiPos(ed->Text[i])) invalid = true; if (invalid) { MessageBeep(MB_ICONERROR); ed->SetFocus(); ed->SelStart = 0; ed->SelLength = 0; } }
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... |
#17
|
||||
|
||||
interesante. Mañana lo pruebo y te cuento.
|
#18
|
||||
|
||||
Bien, me ha servido para orientarme en mi código y ver otro fallo más. ¿qué pasa si seleccionamos el primer caracter o un rango que contenga el primer caracter y pulsamos un número? pues que el número se escribe porque SelLength no es igual a 0 y lo he solucionando cambiando el == por un >= y con eso da igual la cantidad de caracteres que seleccione que si el primer caracter es uno de ellos no dejará que se introduzca un número.
Así quedó mi código: Código:
const char* wrongKey = "|°¬!\"#$%&/()='?\\¿¡@´¨+*~{[^}]`<>,;.:-"; //--------------------------------------------------------------------------- // Verificar en escritura // El mismo evento lo asignamos a todos los TEdits que queramos filtrar void __fastcall TForm1::EditsKeyPress(TObject *Sender, char &Key) { TEdit *ed = static_cast<TEdit*>(Sender); // Si es el primer caracter o si hay una seleccion que abarque al primer caracter // y este es numérico o si la tecla pulsada es uno de los caracteres prohibidos // evitamos que se imprima el caracter if((ed->SelStart == 0 && ed->SelLength >= 0 && isdigit(Key)) || StrPos(wrongKey, String(Key).c_str()) != NULL) { Key=0; MessageBeep(0); } } //--------------------------------------------------------------------------- // Verificar por copiado/pegado // El mismo evento lo asignamos a todos los TEdits que queramos filtrar void __fastcall TForm1::EditsExit(TObject *Sender) { TEdit *ed = static_cast<TEdit*>(Sender); bool invalid = false; // Si el TEdit no está vacío entramos if(ed->Text != "") { // Si el primer caracter es un número en este caso no nos vale la cadena pegada if(isdigit(ed->Text[1])){ invalid = true; }else{ // Si el primer caracter no es numérico comprobamos que la cadena no contenga caracteres inválidos para nuestro propósito recorriendola entera for(int i = 1; i <= ed->Text.Length();i++) { if (StrPos(wrongKey, String(ed->Text[i] ).c_str()) != NULL) { // Si se encuentra un caracter inválido invalid = true; // Salimos del bucle break; } } } if(invalid) { // Mostramos un mensaje avisando MessageBox(Application->Handle,AnsiString("Una cadena no válida fue pegada en " + ed->Name + ".\nRevísela antes de continuar.").c_str(),"Atención",MB_OK | MB_ICONERROR); // Devolvemos el foco al TEdit que contiene la cadena inválida ed->SetFocus(); ed->SelStart = 0; ed->SelLength = 0; } } } //--------------------------------------------------------------------------- void __fastcall TForm1::FormCreate(TObject *Sender) { //Limpiamos todos los TEdits for(int i=0;i < ComponentCount; i++) if(Components[i]->ClassNameIs("TEdit")) (static_cast<TEdit*>(Components[i]))->Clear(); } //--------------------------------------------------------------------------- |
#19
|
||||
|
||||
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... |
#20
|
||||
|
||||
Y ya que estamos refinando la operación, estaba viendo que esta parte:
Código PHP:
Código PHP:
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
nombres de tablas en un SP | akela | Conexión con bases de datos | 2 | 14-12-2007 21:11:34 |
Propiedad tableName,al criterio | look | SQL | 2 | 16-10-2007 01:54:32 |
¿Que componentes usar para tablas Paradox? | h2o_mx | Tablas planas | 5 | 18-05-2006 18:14:38 |
Consejo para manejar tablas Paradox | Coco_jac | Varios | 8 | 17-11-2005 17:27:17 |
como bloquear para borrar en tablas Paradox | Mario1980 | Varios | 4 | 01-12-2004 15:17:51 |
|