2 respuestas en este tema

[TiammatMX]

Jóvenes, buen día...

Resulta que en éste hilo yo preguntaba sobre la creación de una tabla Paradox vía una matriz..., y ahora, requiero el complemento, es decir una vez creada la tabla, necesito crearle un índice que sea congruente con la tabla recién creada.

Sean tan amables de entenderme, que tiene MUCHOS años que no trabajo con Paradox. Agradeciendo de antemano.

[Sergio]

Pues lo mas sencillo seria añadirle un campo "ID" donde pongas el orden de cada elemento en tu matriz, y luego crees un indice por ese campo y lo uses al hacer consultas por SQL (order by id). Como se crea un indice en paradox ya depende de los componenetes y esas cosas, la verdad, no te puedo ayudar mucho (yo tambien hace 15 años que no uso estas cosas).

[TiammatMX]

Pues bueno, como parece que nadie tuvo la respuesta, me doy yo mismo la respuesta... 

delphi

procedure CrearArchivo;
  var
    sNmbrCmp, sHra, sNmbrTbl : string;
    iIndc : integer;
  begin
    sHra := TimeToStr(Now);
    sHra := LeftStr(sHra,2)+MidStr(sHra,4,2);
    sNmbrTbl := 'lp' + IntToStr(DayOfTheYear(Now)) + sHra +'.db';
 
    with TTable.Create(nil) do
    try
      DatabaseName := 'EspecializadosTmp';
      TableName := sNmbrTbl;
      TableType := ttParadox;
 
      FieldDefs.Add('Grupo',ftString,20,True);
      FieldDefs.Add('Codigo',ftString,6,True);
      FieldDefs.Add('Descripcion',ftString, 50, False);
      FieldDefs.Add('Longitud',ftFloat,0,False);
 
      for iIndc := 0 to chcklstboxAcbds.Items.Count -1 do
      begin
        if chcklstboxAcbds.Checked[iIndc] then
        begin
          sNmbrCmp := chcklstboxAcbds.Items.ValueFromIndex[iIndc];
          FieldDefs.Add(sNmbrCmp,ftFloat,0,False);
        end;
      end;
 
      [b]IndexDefs.Add(sNmbrTbl,'Grupo;Codigo',[ixPrimary]);[/b]
 
      CreateTable;
    finally
      Free;
    end;
    tblTmprl.TableName := sNmbrTbl;
    tblTmprl.Exclusive := True;
    tblTmprl.Active := True;
  end;

Nótese la línea IndexDefs, que es la que resuelve el hilo.