No puedo crear Indice Secundario

[jhonalone]

Hola, compañeros.
Os agradecería un poco de ayuda.
Estoy intentando crear un índice secundario en una Tabla, para utilizar el método Table.SetRange([fecha1], [fecha2]);

Bien. Tengo una tabla detail con un campo "Fech"

En el Object Inspector, selecciono la propiedad "IndexDefs". Ya existe un índice primario. Pulso en el boton Add New, se abre el selector de propiedades, le pongo un nombre, selecciono el campo "Fech" y lo cierro.

Vuelvo a las propiedades de la tabla, pulso en la propiedad "IndexName" y no me aparece en el desplegable.

Vuelvo a "IndexDefs" y, para mi sorpresa, ha desaparecido el nuevo índice creado.

Lo he intentado varias veces y siempre igual. He mirado en el fichero .dfm y aparece el índice. Pero cuando vuelvo de nuevo, ya lo ha quitado.

Queda claro que no soy nada experto en tablas, pero esto me sobrepasa en mucho.

Si alguien puede echarme una mano... GRACIAS.

[marcoszorrilla]

Dinos que tipo de tablas estás utilizando, para poderte ayudar y con que utilidad estás creando el índice.

Un Saludo.

[jhonalone]

Bien, gracias Marcos.
Las tablas son Paradox y la utilidad es el IDE de Delphi7.
El índice primario que tengo creado, ya incluye el campo "Fech" con la hora y el número de cliente.
Un Saludo.

[[newtron]]

¿No usas el database desktop?

[jhonalone]

Si, Newtron. Es fácil crear aquí el índice Secundario.

Pero si no tengo entendido mal, esto sirve para una tabla ya creada.

Lo que yo pretendo es crear la tabla con sus índices desde el propio programa. No se si me explico, porque no comprendo muy bien el funcionamiento de las tablas, todavía.

Gracias por tu sugerencia.

[[newtron]]

Empezado por jhonalone

...esto sirve para una tabla ya creada.

Negativo, con el database desktop puedes crear o modificar tablas ya creadas, de todas formas lo ideal es hacer tú mismo la gestión de tus tablas desde la aplicación.

Te he preparado un ejemplo de como se crea una tabla con un índice primario y otro secundario, espero que te sirva.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
with TTable.create(self) do
begin
  DatabaseName := 'C:\TEMP';
  TableName := 'Clientes';
  TableType := ttParadox;
  with FieldDefs do begin
    Add('CODIGO', ftInteger, 0, True);
    Add('FECHA1', ftDate, 0, False);
    Add('FECHA2', ftDate, 0, False);
  end;
  IndexDefs.Add('Primario','ID', [ixPrimary, ixUnique]);
  IndexDefs.Add('Secundario','FECHA1;FECHA2', []);
  CreateTable;
end;

Recuerda que tienes que añadir al "uses" del formulario las unidades "dbtables" y "db".

Saludos