[Lazarus-es] Dudas varias II

[Claudio Romero]

En el componente TDbf no se pueden usar los indices CDX (aun creo),
usa indices MDX.
Aca un fragmento para indexar una tabla DBF con lazarus. El acceso del
archivo debe ser exclusivo.

   dbf1.TableName:=RutaDbf;
    Dbf1.Exclusive := True;
    DeleteFile(ExtraerExtension(RutaDbf)+'.mdx');//borra el indice
   	Dbf1.Open;
    try
        Dbf1.AddIndex(campo_clave, campo_clave, [ixPrimary, ixUnique]);
    except
        GrabaLog(Kinfo,'No pudo acceder, para indexar, en forma
exclusiva a '+RutaDbf+'; o campo clave incorrecto');
        raise;
    end;
    Dbf1.Exclusive := false;    Dbf1.IndexName :=campo_clave;

Luego puedes buscar con Dbf1.SearchKey.