como hacer un fichero indice

[Antuan]

Los pasos a seguir son buenisimos y el ejemplo que me has puesto me funciona pero con modificaciones.
Si pongo el codigo que me dices en el evento onclick de RadioGroup1Click(Sender: TObject);
No me funciona
Seguro que he hecho algo mal.
Pero si lo hago de este modo si que funciona

Código Delphi [-]
procedure TForm1.RadioButton1Click(Sender: TObject);
begin
Table1.IndexName := 'NOMBRE.NDX';
end;
procedure TForm1.RadioButton2Click(Sender: TObject);
begin
Table1.IndexName := 'APE01.NDX';
end;
procedure TForm1.RadioButton3Click(Sender: TObject);
begin
Table1.IndexName := 'APE02.NDX';
end;

Con esto que me has enseñado voy a procurar pasar el codigo a tiempo de ejecucion
Y si te parece pongo el cogigo aqui.
Supongo que le vendra bien a alguien
El siguiente paso es relacionar dos tablas que tambien me trae loco.
Insisto la explicacion es de ordago a la grande.
Muchas gracias.

[dec]

Hola,

Empezado por Antuan

Los pasos a seguir son buenisimos y el ejemplo que me has puesto me funciona pero con modificaciones.

¡Bueno! ¡Todas las que quieras y aun las que no!

Empezado por Antuan

Si pongo el codigo que me dices en el evento onclick de

Código Delphi [-]
   RadioGroup1Click(Sender: TObject);

No me funciona

El caso es que debería Antuan: lo que creo es que no estás utilizando el control "TRadioGroup", sino distintos "botones radio" diferentes: sin duda te confundí con que eran botones. El componente "TRadioGroup" te permite agrupar varios "radio botones", de tal modo que cuando selecciones uno de ellos cualquiera de los otros se "deseleccionará".

Por eso utilizábamos arriba la propiedad "ItemIndex" del "TRadioGroup": esta propiedad nos informa de qué "radio botón" está seleccionado. Echa un vistazo a la pestaña "Estandar" de la paleta de componentes en Delphi, porque ahí encontrarás, justo al lado del "TGroupBox" al "TRadioGroup": añade en su propiedad "Items" (uno por línea) los nombres/títulos (porque serán visibles) de cuantos "radio botones" precises.

De la manera en que lo haces ahora también te funcionará, pero, insisto en que pruebes con un "TRadioGroup", al menos hasta que puedas comparar y decidir con qué manera de hacerlo te quedas.

Empezado por Antuan

Con esto que me has enseñado voy a procurar pasar el codigo a tiempo de ejecucion Y si te parece pongo el cogigo aqui.

No creo que nadie ponga reparos... sobre todo porque...

Empezado por Antuan

Supongo que le vendra bien a alguien

Por eso mismo, por eso mismo Si es muy extenso el código, de todos modos, acaso fuera mejor que lo adjuntaras en un archivo. Como veas.

Empezado por Antuan

El siguiente paso es relacionar dos tablas que tambien me trae loco.

Nada, hombre, eso en dos tardes, ya verás. Y si dudas, ya sabes que puedes abrir otro Hilo Antuan, para no mezclar las cosas. Aquí habrá quien te sepa responder (¡no lo digo por mí!) o, a lo menos lo procure.

[Antuan]

Como ves el error era mio habia puesto TRadioGroup y tambien los ButtonRadio y no habia puesto los Item.
Asi queda mucho mejor.
Ya tengo casi todo en tiempo ejecucion
Me falta la parte que se hace con el DataBase Dektop o sea crear los indices.
Que no encuentro documentacion de como se hacen y tambien caso que existan no lo cree.
Muchas Gracias

[[Lepe]]

Código Delphi [-]
    TablaTrabajo.Exclusive := true;
    TablaTrabajo.SessionName := SessionName;
    Application.ProcessMessages;

 
     Borraindices(Dirbases,'Adicional.DB');
    TablaTrabajo.TableName := 'Adicional.DB';
    Try
      TablaTrabajo.open;
      progreso.Position := progreso.Position +1;
      TablaTrabajo.Addindex('PrimaryKey','Clave',[ixPrimary, ixUnique]);
      progreso.Position := progreso.Position +1;
      TablaTrabajo.Addindex('FidCliente','FidCliente',[]);
      progreso.Position := progreso.Position +1;
      TablaTrabajo.Close;
      progreso.Position := progreso.Position +1;

Esto es para tablas paradox, para dbf quizás sea parecido, mira el programa http://www.clubdelphi.com/ejemplos/caerques1-1.zip
que crea código delphi para tu programa.