Nombres válidos para tablas paradox (Propiedad TableName)

[Yugo]

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?

/* 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;
}

PD: Hay que ver que aún no le he cogido el truco a la opción de citar... se descuadra todo el codigo, jajajaja

[Yugo]

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.

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.

si sabes que son solo esas tres pues if(Key == '/' ll Key == '\\' ll Key == '.') Key = 0;

[ecfisa]

Hola Yugo.

Empezado por Yugo

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?

Es correcto

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

[ecfisa]

Hola de nuevo.

Para no dejar las cosas por la mitad, una implementación para usar con un TEdit:

// 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();
    }
}

Saludos

[aguml]

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?

[ecfisa]

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

[aguml]

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...

[aguml]

Aquí si le veo sentido:

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);
}
//---------------------------------------------------------------------------

Ya que si son muchos TEdits nos ahorramos codigo y es mas facil entenderlo. ¿que opinas?