Cita:
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
with Table1 do begin
Active := False;
DatabaseName := 'C:\temp\prueba';
TableName := 'amigos.dbf';
TableType := ttdBASE;
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;
Table1.IndexDefs.Update;
for i := 0 to (Table1.IndexDefs.Count - 1) do begin
iDef := Table1.IndexDefs.Items[i];
ListBox1.Items.Add('Nombre: ' + iDef.Name);
ListBox1.Items.Add(' Campos: ' + iDef.Fields);
end;
end;