Busqueda Winamp

[vtdeleon]

Empezado por mamcx

Para hacerlo RAPIDO usa una HashTable+SOUNDEX y te deberia resultar bueno el resultado...(sino estoy mal en Delphi la hashtable se llama buckettable?)

Disculpame Compañero,

Pero no se absolutamente nada de Hastable Soundex y Buckettable!!

Donde puedo buscar mas informacion de ellos, para saber.

[vtdeleon]

??????????????????

[mamcx]

Mira en las ayudas sobre

Soundex

TBucketList

La idea es que usas BucketList para almacenar cada palabra y SOundex para hacer comparaciones...

Quiero decir, en vez de algo directo como:


if 'Ejemplo' in ListaString

Es

if Bucket('Ejemplo') in Soundex(ListaString)

PD: Obvio que esa sintaxis me la invente

[vtdeleon]

Saludos.

Creo haber encontrado la solucion. Me he empe~ado un poco en eso hasta conseguirlo.
Le mostrare el codigo para que el que le interese y para optimizar el mismo.
Estoy habierto a sugerencias

Este formulario contiene: 1 edit, 1 dbgrid y 1 query

Código Delphi [-]
procedure Tfrmbuscar.FormCreate(Sender: TObject);
   begin
     vbusca.Clear;//Edit
     Codigo:='';//DECLARADA PRIVATE
     cadena:=TStringList.Create;//DECLARADA PRIVATE
       Query1.Close;
       with Query1.SQL do begin
         Clear;
         Add('select Codemp, Nombre, apellidos');//+column );
         Add('from empleados');//+tabla);
       end;
       Query1.Open;
   end;
   
   procedure Tfrmbuscar.vbuscaKeyUp(Sender: TObject; var Key: Word;
     Shift: TShiftState);
   var
     n:integer;
   begin
 if (Length(trim(vbusca.Text))>0) then
     if key in [VkKeyScanA('A')..VkKeyScan('Z'), VkKeyScanA('0')..VkKeyScan('9'),
      VK_BACK, vk_space, vk_delete] then begin
         cadena.CommaText:=vbusca.Text;
       with Query1 do begin
         Close;
         if cadena.Count<>nkey then begin
           condi:=' (rtrim(nombre) ||'' ''|| rtrim(apellidos)) containing :data'+'0';
           for n:= 1 to cadena.Count-1 do begin
             condi:=condi +' and (rtrim(nombre) ||'' ''|| rtrim(apellidos)) containing :data'+inttostr(n);
           end;
           if SQL.Count>2 then
             sql.Delete(2);
           sql.Insert(2,'where '+condi);
         end;
         for n:=0 to ParamCount-1 do begin
           ParamByName('data'+inttostr(n)).AsString:=cadena[n];
         end;
         nkey:=n;
         if not Prepared then
           Prepare;
         Open;
       end; 
     end;{ else key:=  #0;}
   end;

Hasta Luego

[sakuragi]

vtdeleon

gracias por el aporte

lo estoy checando

nomas unas preguntas. si no es mucha molestia


"cadena" es

Código Delphi [-]
 private
     cadena:TstringList;

las valiables

"nkey"
"condi"
"ParamByNAme" esta no creo que sea variable pero tambien me marca error
"prepare"

todas esas me marcan "undeclared indetifier"


saludos

gracias

[vtdeleon]

Empezado por sakuragi

las valiables

"nkey"
"condi"
"ParamByNAme" esta no creo que sea variable pero tambien me marca error
"prepare"

todas esas me marcan "undeclared indetifier"

El nkey en una variable Integer
condi es String
ParamByName viene referenciado del Query1
prepare es un metodo del Query1

[sakuragi]

esta linea me marcava error en "ParamByName"

Código Delphi [-]
 ParamByName('data'+inttostr(n)).AsString:=cadena[n];

entonses le puse "parameters"

Código Delphi [-]
 Parameters.ParamByName('data'+inttostr(n)).AsString:=cadena[n];

ahora me marco error en el "AsString"
se lo cambie por "value"

Código Delphi [-]
ParamByName('data'+inttostr(n)).Value:=cadena[n];

"prepare" me seguia marcando error creo que es "prepared"

Código Delphi [-]
if not Prepared then
           Prepare;

pues lo cambie por "prepared" no se si este bien pero el error se quito


nkey y condi lo puse variables locales

ya todo esto lo corri y se me traba


probe muchos mesajes para sever donde esta el erro

y el en el open del query

una sentencia sql a de estar mal hecha =S


bueno gracias

ati si te fuenciona tal y como esta?

o tengo que poner otras cosas que no se muestran en el codigo
puesto

saludos