Trato de crear un indice con una tabla AMIGOS.DBF en tiempo ejecucion con un boton y me da error diciendo que el fichero amigos.MDX no exite.
Algo estoy haciendo mal y no veo donde tengo el fallo.
Utilizo un componente Ttable en modo diseño y un boton donde tengo el codigo.
Esto esta solo en un Form.
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
var
Table1: TTable;
begin
Table1 := nil;
try
Table1 := TTable.Create(nil);
Table1.DatabaseName:= ExtractFilePath(Application.ExeName);
Table1.TableName :='amigos.dbf';
Table1.Name := 'Table1';
with Table1 do begin
AddIndex('Nombre', 'Nombre',[ixPrimary, ixUnique]);
IndexName := 'Nombre';
First;
ShowMessage(FieldByName('amigos').AsString);
IndexName := '';
Close;
Exclusive := True;
Open;
DeleteIndex('Nombre');
end;
except
Table1.Free;
raise;
end;
Table1.Free;
end;
La tabla tiene 3 campos "NOMBRE, APELLIDO1, APELLIDO2"
Trato de crear un fichero que se llame NOMBRE.MDX y me es imposible.
Y al mismo tiempo quiero que me cree el indice APELLIDO1.MDX y APELLIDO2.MDX.
Pongo en un zip el ejemplo por si me lo pueden corregir
Es que estoy aprendiendo y cuando lo termine he prometido subirlo al foro.
Muchas gracias.