|
Buenos días.
Neftalí, el findkey lo utilizo para hacer una búsqueda en una tabla. Es muy efectivo y fácil, ya que a medida que vas tecleando la palabra a buscar, ves cómo va recorriendo la tabla (en un dbgrid) con gotokey y/o gotonearest. Empecé a usarlo porque observé que, en una búsqueda un tanto complicada para realizar un informe en una tabla con varios miles de registros, el locate tardaba demasiado (del orden de varios minutos), mientras que con el findkey, el mismo algoritmo y la misma tabla tardaba unos cuantos segundos. Ya te digo que soy algo novato con las mysql, así que qué me recomiendas? Volver al locate quizá??
Rastafarey, he echado un vistazo al código del fichero Zeos.inc, pero mira lo que he encontrado:
{$IF CompilerVersion >= 27} //Delphi XE6+
{$IF CompilerVersion >= 28} //Delphi XE7+
{$UNDEF WITH_DBTABLES} //M.A. In Delphi XE7 no BDE
{$IF CompilerVersion >= 29} //Delphi XE8+
{$IF CompilerVersion >= 30} //Delphi Seattle+
{$ELSE !CompilerVersion >= 30} //Delphi XE8
{$IFEND CompilerVersion >= 30}
{$ELSE !CompilerVersion >= 29} //Delphi XE7
{$IFEND CompilerVersion >= 29}
{$ELSE !CompilerVersion >= 28} //Delphi XE6
{$IFEND CompilerVersion >= 28}
{$ELSE !CompilerVersion >= 27} //Delphi XE5
{$IFEND CompilerVersion >= 27}
{$ELSE !CompilerVersion >= 26} //Delphi XE4
{$IFEND CompilerVersion >= 26}
{$ELSE !CompilerVersion >= 25} //Delphi XE3
{$IFEND CompilerVersion >= 25}
{$ELSE !CompilerVersion >= 24} //Delphi XE2
{$IFEND CompilerVersion >= 24}
{$ELSE !CompilerVersion >= 23} //Delphi XE
{$IFEND CompilerVersion >= 23}
{$ELSE !CompilerVersion >= 22} //Delphi 2010
{$DEFINE WITH_URW1111_ISSUE} //D2010 can't compile for some strange reasons with inlined code.
{$IFEND CompilerVersion >= 22}
{$ELSE !CompilerVersion >= 21} //Delphi 2009
{$DEFINE WITH_INLINE_ANSISTRLCOMP} //AnsiStrLComp is inlined in D2009 only
{$DEFINE WITH_URW1135_ISSUE} //D2009 can't compile for some strange reasons with inlined code.
{$IFEND CompilerVersion >= 21}
{$IFEND CompilerVersion >= 20} //Delphi 2007
{$IFEND CompilerVersion >= 18.5} //Delphi 2006
{$ELSE !CompilerVersion >= 18} //Delphi 2005
{$DEFINE WITH_C11389_ERROR} //D2005 has some inline problems
{$IFEND CompilerVersion >= 18}
{$IFEND CompilerVersion >= 17} //Delphi 8
{$IFEND CompilerVersion >= 16} //Delphi 7
{$IF not defined(PatchSystemMove) and defined(WIN32)}
{$DEFINE FAST_MOVE}
{$IFEND}
{$IFEND CompilerVersion < 15}
{$ENDIF}
Así que creo que no puede ser. Muchas gracias de todos modos.
Saludos.
|