Sigo con problemas con los indices

[Neftali [Germán.Estévez]]

Te he añadido la comprobación de que existen y enel adjunto.

[Antuan]

Muchas gracias por tu correcion este codigo lo pondre en un boton y de vez en cuando indexare de nuevo los indices.
Por cierto el ejemplo que me envias me da error y no puedo ejecutarlo.
Salen como dos botones al ejecutarlo y sin embargo en tiempo diseño solo hay un boton y el codigo es el mismo que yo te envien.
Es algo muy raro.
De todas formas muchas gracias

[marcoszorrilla]

Código Delphi [-]
 procedure TForm1.Button3Click(Sender: TObject);
 begin
 table1.DeleteIndex('Indice1');
 table1.DeleteIndex('Indice2');
 table1.DeleteIndex('Indice3');
 end;

Pon otro botón con este código para empezar primero eliminando los índices y verás como te funciona correctamente.

Un Saludo.

[Neftali [Germán.Estévez]]

Empezado por Antuan

....Por cierto el ejemplo que me envias me da error y no puedo ejecutarlo. Salen como dos botones al ejecutarlo y sin embargo en tiempo diseño solo hay un boton y el codigo es el mismo que yo te envien.

Revisa las Units que estás cogiendo, he bajado el ejemplo que yo mismo subí y lo compilo sin problemas en Delphi 6; Además las Units están correctas.
Hay dos botones y un ListBox; El código de ambos botones es el siguiente:

Código Delphi [-]
 procedure TForm1.Button1Click(Sender: TObject);
 begin
   { Crea arquivo }
   with Table1 do begin
     Active := False;
     DatabaseName := 'C:\temp\prueba';
     TableName := 'amigos.dbf';
     TableType := ttdBASE;
     // Crear los tres indices
     AddIndex('indice1', 'Nombre', [ixExpression]);
     AddIndex('indice2', 'Apellido1', [ixExpression]);
     AddIndex('Indice3', 'Apellido2', [ixExpression]);
  end;
 
 end;
 
 procedure TForm1.Button2Click(Sender: TObject);
 var
   i:Integer;
   iDef:TIndexDef;
 begin
 
   with Table1 do begin
     Active := False;
     DatabaseName := 'C:\temp\prueba';
     TableName := 'amigos.dbf';
     TableType := ttdBASE;
   end;
 
   // Referescar info.
   Table1.IndexDefs.Update;
   // Recorrer los índices
   for i := 0 to (Table1.IndexDefs.Count - 1) do begin
     iDef := Table1.IndexDefs.Items[i];
     // Nombre
     ListBox1.Items.Add('Nombre: ' + iDef.Name);
     // Campos
     ListBox1.Items.Add('   Campos: ' + iDef.Fields);
   end;
 
 end;

[Antuan]

Muchas gracias por los ejemplos. Esto me ha ayudado bastante a comprender el manejo de los indices.
Lo que siento es que como son bases antiguas. No disponer de informacion acerca del manejo de este tipo de bases.
Ahora ya se utilizan otro tipo de bases y la documentacion que se encuientra es de estas bases mas modernas y no de las de tipo DBF.
Muchas gracias.