Sigo con problemas con los indices

[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;