Olá, Estou utilizando o código abaixo para criar tabelas e seus índices com o componente tDBF;
tbTabela.FilePathFull := ''; tbTabela.TableLevel := 25; tbTabela.TableName := 'tabela.dbf'; if not(fileexists(extractfilepath(paramstr(0))+'tabela.dbf')) then begin with tbTabela.FieldDefs do begin add('Cliente', ftInteger, 0, True); add('Data', ftDate, 0, True); add('Hora', ftDateTime, 0, True); add('Horario', ftString, 5, True); add('Obse', ftString, 100, True); add('Valor', ftCurrency, 0, True); end; tbTabela.createtable; tbTabela.AddIndex('iCliente', 'Cliente', [ixPrimary, ixUnique]); // tbTabela.AddIndex('iData','Data', []); tbTabela.open; end; Não estou conseguindo criar índices com campo tipo data, tentei: tbTabela.AddIndex( 'iData',datetostr(data), [ixExpression]); Gostaria de criar índice com dois campos: Data + Horario, e como fazer a pesquisa ? tbTabela.IndexName := 'iData'; tbTabela.SearchKeyPChar(Edit1.Text+Edit2.Text); []s Fabiano